Private Sub my()
Dim strSQL, a, b, c, d
If IsNull(Me.krit1) Or Me.krit1 = "" Then 'текстовое.Если поле фпьтра krit1(под надписью ctl1-см.свойства поля> вкладка другие> имя )NULL или пустое
a = Null 'тогда a имеет это значение
ElseIf Me.krit1 = " непустые" Then 'если в списке выбрано " непустые"
a = " and not ctl1 is null" 'тогда a имеет это значение
ElseIf Me.krit1 = " пустые" Then 'если в списке выбрано " непустые"
a = " and ctl1 is null" 'тогда a имеет это значение
Else 'любое другое значение из списка (например "вт")
a = " and ctl1='" & Me.krit1 & "'" 'тогда a=" and ctl1='вт'"
End If
If IsNull(Me.krit2) Or Me.krit2 = "" Then 'дата/время. Аналогично только другой синтаксис
b = Null
ElseIf Me.krit2 = " непустые" Then
b = " and not ctl2 is null"
ElseIf Me.krit2 = " пустые" Then
b = " and ctl2 is null"
Else
b = " and ctl2=#" & Format(Me.krit2, "mm\/dd\/yyyy\#")
End If
If IsNull(Me.krit3) Or Me.krit3 = "" Then 'числовое. Аналогично только другой синтаксис
c = Null
ElseIf Me.krit3 = " непустые" Then
c = " and not ctl3 is null"
ElseIf Me.krit3 = " пустые" Then
c = " and ctl3 is null"
Else
c = " and ctl3=" & Me.krit3
End If
If IsNull(Me.krit4) Then d = Null Else d = " and ctl4=" & Me.krit4 'логическое.Аналогично.Синтаксис как у числового только условий два-true/false
'собираем строку SQL допустим в krit1 выбрано "d",в krit2 01.03.2016
strSQL = Mid(a & b & c & d, 6) ' "ctl1='d' and ctl2=#03/01/2016#"
If IsNull(strSQL) Then 'если в фильтре (поля для ввода китериев) ничего не выбрано
DoCmd.ShowAllRecords 'показать все
'задать источники строк для полейСоСписком фильтра при отображении всех записей
Me.krit1.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl1 from таблица1 where not ctl1 is null group by ctl1"
Me.krit2.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl2 from таблица1 where not ctl2 is null group by ctl2"
Me.krit3.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl3 from таблица1 where not ctl3 is null group by ctl3"
Exit Sub 'выход из процедуры
Else 'иначе формируется источник строк для полейСоСписком фильтра с учетом выбранного фильтра
Me.krit1.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl1 from таблица1 where " & strSQL & " and not ctl1 is null group by ctl1"
Me.krit2.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl2 from таблица1 where " & strSQL & " and not ctl2 is null group by ctl2"
Me.krit3.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl3 from таблица1 where " & strSQL & " and not ctl3 is null group by ctl3"
DoCmd.ApplyFilter , strSQL 'применение фильтра
End If
End Sub
Private Sub krit1_AfterUpdate()
Call my 'вызов(выполнение) процедуры my при обновлении поля "krit1"
End Sub
Private Sub krit2_AfterUpdate()
Call my 'вызов(выполнение) процедуры my при обновлении поля "krit2"
End Sub
Private Sub krit3_AfterUpdate()
Call my 'вызов(выполнение) процедуры my при обновлении поля "krit3"
End Sub
Private Sub krit4_AfterUpdate()
Call my 'вызов(выполнение) процедуры my при обновлении поля "krit4"
End Sub
Private Sub ShowAll_Click() 'кнопка "показать все"
DoCmd.ShowAllRecords 'показать все
Me.krit1 = Null 'очистить
Me.krit2 = Null 'все
Me.krit3 = Null 'поля
Me.krit4 = Null 'фильтра
'задать источники строк для полейСоСписком фильтра при отображении всех записей
Me.krit1.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl1 from таблица1 where not ctl1 is null group by ctl1"
Me.krit2.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl2 from таблица1 where not ctl2 is null group by ctl2"
Me.krit3.RowSource = "SELECT top 1 ' непустые' FROM Таблица1 UNION SELECT top 1 ' пустые' FROM Таблица1 UNION select ctl3 from таблица1 where not ctl3 is null group by ctl3"
End Sub