ник: Дядя Федор
А не проще вставить обработчик ошибок
Private Sub ClientForFilter_Change()
Dim strFind As String
On Error GoTo Err_1
strFind = Nz(Me.ClientForFilter.Text, "")
If strFind <> "" Then
Me.Filter = "[Название] Like '" & strFind & "*'"
Me.FilterOn = True
Me.ClientForFilter.SelStart = 200
Else
Me.FilterOn = False
End If
Exit Sub
Err_1:
MsgBox "Нет записей" 'или что-то в этом роде или вообще не выводить сообщение а забить программно последний символ ввода в ClientForFilter
End Sub
|