Фильтр по форме по нескольким полям

@ДинарШ · Регистрация: 19.11.2017

Author24 — интернет-сервис помощи студентам

Добрый день.
Помогите,пожалуйста, с вопросом фильтра по форме. При фильтре по одному полю все работает, при фильтре по 2 полям поставил фильтр с объединением двух фильтров. Как сделать фильтр не нескольким полям так, чтобы при нажатии на кнопку фильтр ставился только на заполненные поля со списком, а в пустых полях со списком показывал бы все значения по этому полю. Или ставился бы фильтр по мере выбора значений.

И еще один вопрос, как в одном поле выбрать больше одного значения (например по числу комнат в квартире). При фильтре можно было выбрать сразу и 2 комнатные и 3 комнатные или по типу здания кирпичные и монолитно-кирпичные.

Спасибо за помощь. В Access работаю несколько месяцев только, не судите строго)

База во вложении.

@Eugene-LS · 21.11.2017, 15:12

Сообщение от ДинарШ

Помогите,пожалуйста, с вопросом фильтра по форме.

Макросами тут видимо никак.
Только кодом.
Объединяем условия фильтра через "AND"

Сообщение от ДинарШ

И еще один вопрос, как в одном поле выбрать больше одного значения (например по числу комнат в квартире).

Это через In() в условии и поле СПИСОК.

@Eugene-LS · 21.11.2017, 15:12

Сообщение от ДинарШ

Помогите,пожалуйста, с вопросом фильтра по форме.

Макросами тут видимо никак.
Только кодом.
Объединяем условия фильтра через "AND"

Сообщение от ДинарШ

И еще один вопрос, как в одном поле выбрать больше одного значения (например по числу комнат в квартире).

Это через In() в условии и поле СПИСОК.

@ДинарШ · 21.11.2017, 15:19 **[ТС]**

А примерно хотя бы по моей базе можете написать?

@Eugene-LS · 21.11.2017, 15:34

Сообщение от ДинарШ

А примерно хотя бы по моей базе можете написать?

Могу - но позднее.
Сейчас занят "по самые нехочу" ...
Добрые формучане помогите пожалуйста!

@Eugene-LS · 21.11.2017, 17:01

Вот .... - только по верхним полям - дальше, надеюсь, самостоятельно разберётесь.

Код:

Visual Basic

Private Sub cbГод_постройки_по_Click()
    Form_Refilter
End Sub
 
Private Sub cbГод_постройки_с_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub cmdClearFilter_Click()
 
    Me!Выборулиц = Null
    Me!Выбордома = Null
    Me!cbГод_постройки_с = Null
    Me!cbГод_постройки_по = Null
    Me!Выбортипадома = Null
    Me!Выборотопления = Null
    
    Form_Refilter
    
End Sub
 
Private Sub Выбордома_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub Выборотопления_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub Выбортипадома_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub Выборулиц_AfterUpdate()
    Form_Refilter
End Sub
 
 
Private Sub Form_Refilter()
Dim sFilter As String
    If Me!Выборулиц.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = " AND Улица='" & Me!Выборулиц & "'"
    End If
 
    If Me!Выбордома.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND НомерДома='" & Me!Выбордома & "'"
    End If
 
'Датапостройки (года)
    If Me!cbГод_постройки_с.ListIndex <> -1 And Me!cbГод_постройки_по.ListIndex <> -1 Then
        sFilter = sFilter & "Датапостройки Between " & Me!cbГод_постройки_с & " And " & Me!cbГод_постройки_по
    Else
        If Me!cbГод_постройки_с.ListIndex <> -1 Then
            sFilter = sFilter & "Датапостройки >=" & Me!cbГод_постройки_с
        End If
        If Me!cbГод_постройки_по.ListIndex <> -1 Then
            sFilter = sFilter & "Датапостройки <=" & Me!cbГод_постройки_по
        End If
    End If
 
 
'Выбортипадома
    If Me!Выбортипадома.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND ТипДома='" & Me!Выбортипадома & "'"
    End If
 
 
'Выбортипадома
    If Me!Выборотопления.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND Отопление='" & Me!Выборотопления & "'"
    End If
 
'Применяем филтер!
    If Len(sFilter) > 6 Then
        Me.Filter = Mid(sFilter, 6)
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
    
    
    
End Sub

@ДинарШ · 21.11.2017, 17:17 **[ТС]**

Спасибо, попробую разобраться.

Добавлено через 3 минуты
Ругается при выборе даты постройки "run time error 3464 несоответствие типов данных в выражении условия отбора" ((

@Eugene-LS · 21.11.2017, 17:20

Сообщение от ДинарШ

попробую разобраться.

Как сказать "СПАСИБО!" ...

@Eugene-LS · 21.11.2017, 17:21

Сообщение от ДинарШ

Ругается при выборе даты постройки "run time error 3464 несоответствие типов данных в выражении условия отбора"

Шас гляну ...

@ДинарШ · 21.11.2017, 17:25 **[ТС]**

Если по дате постройке сложно сделать, попробуйте пожалуйста сделать по комнате (выбор комнатности ) район ,микрорайон, планировке, тип дома, отопление)) в VBA ничего не соображаю

@Eugene-LS · 21.11.2017, 17:32

Сообщение от ДинарШ

Ругается при выборе даты постройки "run time error 3464 несоответствие типов данных в выражении условия отбора"

Исправил.
В спешке "AND" в паре аргументов фильтра забыл поставить.

@ДинарШ · 21.11.2017, 18:34 **[ТС]**

какой код нужен для снятия фильтра только по одному полю? спасибо.

Добавлено через 17 секунд
Eugene-LS, какой код нужен для снятия фильтра только по одному полю? спасибо.

@Eugene-LS · 21.11.2017, 18:43

Сообщение от ДинарШ

какой код нужен для снятия фильтра только по одному полю?

Обычно это делается зачисткой значения поля.

@ДинарШ · 21.11.2017, 18:50 **[ТС]**

Евгений, еще раз побеспокою, по выборкомнатности числовое значение выдает ошибку. там какие собки лишние

Visual Basic

Option Compare Database
Option Explicit
 
Private Sub cbГод_постройки_по_Click()
    Form_Refilter
End Sub
 
Private Sub cbГод_постройки_с_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub cmdClearFilter_Click()
 
    Me!Выборулиц = Null
    Me!Выбордома = Null
    Me!cbГод_постройки_с = Null
    Me!cbГод_постройки_по = Null
    Me!Выбортипадома = Null
    Me!Выборотопления = Null
    Me!Выборпланировки = Null
    Me!списокрнов = Null
    Me!списокмикр = Null
    Me!выборкомнатности = Null
    
    Form_Refilter
    
End Sub
 
Private Sub Выбордома_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub Выборотопления_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub Выбортипадома_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub Выборулиц_AfterUpdate()
    Form_Refilter
End Sub
 
Private Sub Выборпланировки_AfterUpdate()
    Form_Refilter
End Sub
Private Sub Списокрнов_AfterUpdate()
    Form_Refilter
End Sub
Private Sub Списокмикр_AfterUpdate()
    Form_Refilter
End Sub
Private Sub выборкомнатности_AfterUpdate()
    Form_Refilter
End Sub
Private Sub Form_Refilter()
Dim sFilter As String
    If Me!Выборулиц.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = " AND Улица='" & Me!Выборулиц & "'"
    End If
 
    If Me!Выбордома.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND НомерДома='" & Me!Выбордома & "'"
    End If
 
'Датапостройки (года)
    If Me!cbГод_постройки_с.ListIndex <> -1 And Me!cbГод_постройки_по.ListIndex <> -1 Then
        sFilter = sFilter & " AND Датапостройки Between " & Me!cbГод_постройки_с & " And " & Me!cbГод_постройки_по
    Else
        If Me!cbГод_постройки_с.ListIndex <> -1 Then
            sFilter = sFilter & " AND Датапостройки >=" & Me!cbГод_постройки_с
        End If
        If Me!cbГод_постройки_по.ListIndex <> -1 Then
            sFilter = sFilter & " AND Датапостройки <=" & Me!cbГод_постройки_по
        End If
    End If
 
 
'Выбортипадома
    If Me!Выбортипадома.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND ТипДома='" & Me!Выбортипадома & "'"
    End If
 
 
'Выбортипадома
    If Me!Выборотопления.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND Отопление='" & Me!Выборотопления & "'"
    End If
 
 
'Выборпланировки
    If Me!Выборпланировки.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND Планировка='" & Me!Выборпланировки & "'"
    End If
    
    
'Списокрнов
    If Me!списокрнов.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND Район='" & Me!списокрнов & "'"
    End If
   ' Debug.Print sFilter
    
    
 'Списокмикр
    If Me!списокмикр.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND Микрорайон='" & Me!списокмикр & "'"
    End If
    
    
 'выборкомнатности
    If Me!выборкомнатности.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND Комнатность='" & Me!выборкомнатности & "'"
    End If
    
'Применяем филтер!
    If Len(sFilter) > 6 Then
        Me.Filter = Mid(sFilter, 6)
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
    
    
    
End Sub

@Eugene-LS · 21.11.2017, 19:03

Сообщение от ДинарШ

по выборкомнатности числовое значение выдает ошибку. там какие собки лишние

Это поле числовое - кавычки не нужны!
Внимательнее!

Visual Basic

 'выборкомнатности
    If Me!выборкомнатности.ListIndex <> -1 Then 'Значение выбрано!
        sFilter = sFilter & " AND Комнатность=" & Me!выборкомнатности
    End If

@ДинарШ · 22.11.2017, 08:39 **[ТС]**

Eugene-LS, Спасибо, все работает. Как еще поставить фильтр на поле с типом Дата (от и до)

@Eugene-LS · 22.11.2017, 09:16

Сообщение от ДинарШ

Как еще поставить фильтр на поле с типом Дата (от и до)

Примерно так:

Visual Basic

'Фильтр по датам
    If IsDate(Me!txtDateFrom) = True And IsDate(Me!txtDateTo) = True Then 'Указаны даты начала и конца
        sFilter = sFilter & " AND Дата_Рождения Between " & _
                Format$(Me!txtDateFrom, "\#mm\/dd\/yy\#") & _
                " And " & _
                Format$(Me!txtDateTo, "\#mm\/dd\/yy\#")
    Else 'Указана только одна из дат - больше - меньше
        If IsDate(Me!txtDateFrom) = True Then 'Указана только дата начала периода
            sFilter = sFilter & " AND Дата_Рождения >=" & Format$(Me!txtDateFrom, "\#mm\/dd\/yy\#")
        End If
        If IsDate(Me!txtDateTo) = True Then   'Указана только дата окончания периода
            sFilter = sFilter & " AND Дата_Рождения <=" & Format$(Me!txtDateTo, "\#mm\/dd\/yy\#")
        End If
    End If

mobile · 22.11.2017, 09:26

Используя Nz, можно проще применять открытые, полуоткрытые и замкнутые интервалы

Visual Basic

1 2	sFilter = "Дата_Рождения Between " & Format$(Nz(Me!txtDateFrom, 0), "\#mm\/dd\/yyyy\#") _ & " And " & Format$(Nz(Me!txtDateTo, 100000), "\#mm\/dd\/yyyy\#")

@Eugene-LS · 22.11.2017, 09:53

Сообщение от mobile

Используя Nz, можно проще применять открытые, полуоткрытые и замкнутые интервалы

Лихо!
Спасибо!

Но следует помнить что:
CDate(100000) = 14.10.2173 (всего через 150 лет с прицепом)
Лучше уж сразу (с запасом):
CDate(1999999) = 22.10.7375

Visual Basic

1	Format$(Nz(Me!txtDateTo, 1999999)

Добавлено через 17 минут
ДинарШ, согласно совету уважаемого mobile, - получаем более изящный вариант:

Visual Basic

'Фильтр по датам
    If IsDate(Me!txtDateFrom) = True Or IsDate(Me!txtDateTo) = True Then 'Указаны даты начала и конца
        sFilter = sFilter & " AND Дата_Рождения Between " & _
                Format$(Nz(Me!txtDateFrom, 0), "\#mm\/dd\/yyyy\#") & _
                " And " & _
                Format$(Nz(Me!txtDateTo, 999999), "\#mm\/dd\/yyyy\#") ' На Null = #11/25/4637#
    End If

Но помним что функция Nz() только в последних версиях:
Применяется к: Access 2016 Access 2013 Access 2010 Access 2007

mobile · 22.11.2017, 10:55

Сообщение от Eugene-LS

Но помним что функция Nz() только в последних версиях:
Применяется к: Access 2016 Access 2013 Access 2010 Access 2007

Не помню насчет Access 2000, но в 2002 точно была. Ну и разумеется в 2003.

Фильтр по форме по нескольким полям

Решение

Решение

Решение

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,468
	21.11.2017, 15:12	2
	Сообщение от ДинарШ Помогите,пожалуйста, с вопросом фильтра по форме. Макросами тут видимо никак. Только кодом. Объединяем условия фильтра через "AND" Сообщение от ДинарШ И еще один вопрос, как в одном поле выбрать больше одного значения (например по числу комнат в квартире). Это через In() в условии и поле СПИСОК. 1

@ДинарШ 0 / 0 / 0 Регистрация: 19.11.2017 Сообщений: 16
	21.11.2017, 15:19 [ТС]	4
	А примерно хотя бы по моей базе можете написать? 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,468
	21.11.2017, 15:34	5
	Сообщение от ДинарШ А примерно хотя бы по моей базе можете написать? Могу - но позднее. Сейчас занят "по самые нехочу" ... Добрые формучане помогите пожалуйста! 1

@ДинарШ 0 / 0 / 0 Регистрация: 19.11.2017 Сообщений: 16
	21.11.2017, 17:17 [ТС]	7
	Спасибо, попробую разобраться. Добавлено через 3 минуты Ругается при выборе даты постройки "run time error 3464 несоответствие типов данных в выражении условия отбора" (( 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,468
	21.11.2017, 17:20	8
	Сообщение от ДинарШ попробую разобраться. Как сказать "СПАСИБО!" ... Миниатюры 3

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,468
	21.11.2017, 17:21	9
	Сообщение от ДинарШ Ругается при выборе даты постройки "run time error 3464 несоответствие типов данных в выражении условия отбора" Шас гляну ... 1

@ДинарШ 0 / 0 / 0 Регистрация: 19.11.2017 Сообщений: 16
	21.11.2017, 17:25 [ТС]	10
	Если по дате постройке сложно сделать, попробуйте пожалуйста сделать по комнате (выбор комнатности ) район ,микрорайон, планировке, тип дома, отопление)) в VBA ничего не соображаю 0

@ДинарШ 0 / 0 / 0 Регистрация: 19.11.2017 Сообщений: 16
	21.11.2017, 18:34 [ТС]	12
	какой код нужен для снятия фильтра только по одному полю? спасибо. Добавлено через 17 секунд Eugene-LS, какой код нужен для снятия фильтра только по одному полю? спасибо. 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,468
	21.11.2017, 18:43	13
	Сообщение было отмечено ДинарШ как решение Решение Сообщение от ДинарШ какой код нужен для снятия фильтра только по одному полю? Обычно это делается зачисткой значения поля. 1

@ДинарШ 0 / 0 / 0 Регистрация: 19.11.2017 Сообщений: 16
	22.11.2017, 08:39 [ТС]	16
	Eugene-LS, Спасибо, все работает. Как еще поставить фильтр на поле с типом Дата (от и до) 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.11.2017, 10:55	20
	Сообщение от Eugene-LS Но помним что функция Nz() только в последних версиях: Применяется к: Access 2016 Access 2013 Access 2010 Access 2007 Не помню насчет Access 2000, но в 2002 точно была. Ну и разумеется в 2003. 0