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