ник: Krayshon
Использую такой вот код, нашел его в одной из тем.
Проблема в том что в поле можно писать только одно слово или часть, не ставится пробел. Как подправить код, что бы можно было использовать пробел?
Private Sub Поле39_Change()
Dim strFind As String
strFind = Nz(Me.Поле39.Text, "")
If strFind <> "" Then
Me.Filter = "[Название публикации] Like '*" & strFind & "*'"
Me.FilterOn = True
Me.Поле39.SelStart = 200
Me.Поле41 = ""
Me.Поле43 = ""
Me.Поле45 = ""
Me.Поле49 = ""
Me.Поле53 = ""
Else
Me.FilterOn = False
Me.Поле39.SetFocus
End If
End Sub
|