ник: snipe
Private Sub поиск_Dirty(Cancel As Integer)
Dim strFind As String
strFind = Nz(me.поиск.Text, "")
If strFind <> "" Then
Forms![поиск]![подч_форма].Form.Filter = "[КодМобильного] Like '*" & strFind & "*'"
Forms![поиск]![подч_форма].Form.FilterOn = True
me.поиск.SelStart = 200
Else
Forms![поиск]![подч_форма].Form.FilterOn = False
End If
End Sub
так вроде должно заработать