ник: LavTeam
По этой ссылке http://hiprog.com/index.php?option=com_content&task=view&id=251661615&Itemid=35 sample выкладывал пример "Отбор записей формы по мере ввода символов в поле "
А можно ли сделать, чтобы можно было вводить пробел?
Например, "7700 5555"
Private Sub ClientForFilter_Change()
Dim strFind As String
strFind = Nz(Me.ClientForFilter.Text, "")
If strFind <> "" Then
Me.Filter = "[Название] Like '" & strFind & "*'"
Me.FilterOn = True
Me.ClientForFilter.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub
|