ник: Гоблин
Вот, Дядя Федор. Именно такой код и работает.
Dim strFind$
strFind = Nz(Me.LisFilter.Text, "")
If strFind <> "" Then
Me.Filter = "[NaimPrice] Like '" & strFind & "*'"
Me.FilterOn = True
Me.LisFilter.SelStart = 200
Else
Me.FilterOn = False
End If
Но зараза пробелы в поле не поставить. А очень надо.
За вторую часть кода
If Me.RecordsetClone.RecordCount = 0 Then
If MsgBox("Добавить " & strFind & "?", vbYesNo, "!") = vbYes Then
'код для добавления и обновления формы
и спрашивал. Так что спасибо. Это и не додумкал. Но если в поле пробелы не будут получаться, то смысла нет.
Как заставить принимать пробелы. Не хочет гад. Если бы не сжирал пробелы, проблем бы не было. 