Фильтр по форме

Private Sub fld_menedger_Click()
'''''
fpoisk
 
End Sub
 
S2 = "" & Me.fld_menedger.Column(0)
If Len(S2) > 0 Then
S1 = S1 & " AND [Menedger]  =" & S2 & ""
End If

Private Sub FormRefilter()
Dim s$
'Контакты Like "*" & [Формы]![форма_звонки_входящ_карточка_таб1]![поиск_тел] & "*"
    
    If IsNull(Me!поиск_тел) = False Then
        s = s & " AND Контакты Like '*" & Me!поиск_тел & "*'"
    End If
    
'Дата c - по
    If IsNull(Me!дата1) = False Or IsNull(Me!дата2) = False Then
        s = s & " AND Дата_звонка Between " & _
                Format$(Nz(Me!дата1, 0), "\#mm\/dd\/yyyy\#") & _
                " And " & Format$(Nz(Me!дата2, 999999), "\#mm\/dd\/yyyy\#")  ' На Null = #11/25/4637#
    End If
    
    If s <> "" Then
        s = Mid(s, 6)
        'Debug.Print s
        Me![подчиненная форма ф_зв_вх_таб1].Form.Filter = s
        Me![подчиненная форма ф_зв_вх_таб1].Form.FilterOn = True
    Else 'Отмена фильтра
        Me![подчиненная форма ф_зв_вх_таб1].Form.Filter = ""
        Me![подчиненная форма ф_зв_вх_таб1].Form.FilterOn = False
    End If
    Debug.Print s
End Sub

Private Sub fld_zakazchik_zajvca_Change()
    If Len(fld_zakazchik_zajvca.Text) > 0 Then
        Me.fld_zakazchik_zajvca.RowSource = "SELECT ID_zacazchic, Nazvanie_zac FROM Zacazchic " _
            & " where Nazvanie_zac like '*" & Me.fld_zakazchik_zajvca.Text & "*'"
        Me.fld_zakazchik_zajvca.Dropdown
    Else
        Me.fld_zakazchik_zajvca.RowSource = "SELECT DISTINCT Zajvka_nomer.Zakazchik_zajvca, Zacazchic.Nazvanie_zac FROM Zacazchic INNER JOIN Zajvka_nomer ON Zacazchic.ID_zacazchic=Zajvka_nomer.Zakazchik_zajvca;"
    End If
End Sub

Private Sub fld_zakazchik_zajvca_Change()
'Тут Лучше установить Property: ComboBox.AutoExpand = False
Dim s As String, sVal As String
 
'Базовый RowSource (по умолчанию)
    s = "SELECT DISTINCT Zajvka_nomer.Zakazchik_zajvca, Zacazchic.Nazvanie_zac " & _
        "FROM Zacazchic INNER JOIN Zajvka_nomer ON Zacazchic.ID_zacazchic=Zajvka_nomer.Zakazchik_zajvca"
    
    sVal = Trim(Me!fld_zakazchik_zajvca.Text) 'Значение в поле
    If Len(sVal) > 0 Then 'Значение в поле есть - строим условие
        s = s & " WHERE Zacazchic.Nazvanie_zac LIKE '*" & sVal & "*'"
        'Debug.Print "= WHERE Zacazchic.Nazvanie_zac LIKE '*" & sVal & "*'"
    End If
    
    Me!fld_zakazchik_zajvca.RowSource = s
    Me!fld_zakazchik_zajvca.Dropdown 'Разворот списка
 
End Sub

Private Sub fld_zakazchik_zajvca_AfterUpdate()
    fpoisk 'Рефильтрация формы
End Sub

Private Sub fld_zakazchik_zajvca_Click()
'''''
fpoisk
 
End Sub