ник: Krayshon
Ничего не должно быть одинаково
Вот рабочая часть кода с поиском на той же форме что и поле, там так же все по разному названо. Вместо Поиск_Err и Поиск_Exit можно хоть "абракадабра" написать.
On Error GoTo Поиск_Err
Dim strFind As String
strFind = Nz(Me.Поле39.Text, "")
If strFind <> "" Then
Me.Filter = "[Столбец] Like '*" & strFind & "*'"
Me.FilterOn = True
Me.Поле39.SelStart = 200
Else
Me.FilterOn = False
Me.Поле39.SetFocus
End If
Поиск_Exit:
Exit Sub
Поиск_Err:
Me.FilterOn = False
Me.Поле39 = Null
MsgBox "Совпадений не обнаружено!", vbCritical, "Поиск"
Resume Поиск_Exit
End Sub
|