фильтрация реализована так, что по мере набора символов отображаются записи, содержащие введенные символы (по своим полям), но возникают ошибки, которые я прибил "переходом далее". Это неправильно ) подправьте процедуру, где есть ошибки

Private Sub wфильтр_номер_дела_Change()
On Error Resume Next
S0 = "" & Me.wфильтр_номер_дела
Call fpoisk
Me.wфильтр_номер_дела.SelStart = Len(S0) + 1
End Sub
 
Sub fpoisk()
Dim s1, s2
 
    Me.Refresh
    s1 = "true "
    
s2 = "" & Me.wфильтр_наименование
If Len(s2) > 0 Then
s1 = s1 & " and   (полное_наименование & краткое_наименование) like '*" & s2 & "*'"
End If
 
s2 = "" & Me.wфильтр_номер_дела
If Len(s2) > 0 Then
s1 = s1 & " and  номер_дела like '*" & s2 & "*'"
End If
 
s2 = "" & Me.wфильтр_договор
If Len(s2) > 0 Then
s1 = s1 & " and  номер_договора like '*" & s2 & "*'"
End If
 
Debug.Print s1
    Filter = s1
    FilterOn = True
    
    If IsNull(Forms![ДанныеПоискФильтрация]![wфильтр_договор] & Forms![ДанныеПоискФильтрация]![wфильтр_номер_дела] _
    & Forms![ДанныеПоискФильтрация]![wфильтр_наименование] & Forms![ДанныеПоискФильтрация]![wФильтрДатыЗаседания]) Then
        MsgBox "Введите данные для фильтрации"
        Me.ОбластьДанных.Visible = False
        Else
        Me.ОбластьДанных.Visible = True
    End If
 
End Sub

http://www.sql.ru/forum/1117478/filtraciya-zapisey-bazy-po-mere-nabora-teksta