Private Sub Кнопка11_Click() ' показать все
Dim i
For Each i In Me.Список7.ItemsSelected
    Me.Список7.Selected(i) = False
Next
Me.RecordSource = "select * from таблица1"
End Sub

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.2026
strsql = Mid(a & b & c & d, 6)  '=Mid(" and ctl1='d' and ctl2=#03/01/2016#)= "ctl1='d' and ctl2=#03/01/2016#"
If IsNull(strsql) Then          'если в фильтре (поля для ввода китериев) ничего не выбрано
MsgBox "выберите фильтр"        'сообщение
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