ник: АлаяЗаря
Доброго времени суток! Собственно имею вот такой вот поиск:
Private Sub Поле107_change()
Dim strFind As String
strFind = Nz(Me.Поле107.Text, "")
If strFind <> "" Then
Me!Поле107 = strFind
Me.Filter = "[NaimenovanijeObjekta] Like '" & strFind & "*'"
Me.FilterOn = True
Me.Поле107.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub
|
Все хорошо, вот только ищет с начала слова, желательно чтобы хватал еще и часть слова. Это очень критично для меня, например есть объект "ВК Московской области", сейчас можно найти только если ввести "ВК Мо...", а хотелось бы чтобы и при вводе "Мос..." тоже выводилось... Просто через несколько месяцев у меня дублей необерешься будет... Опретатор он же если не нашел то по своему ввел...
П.С. Где то видел как это реализовывается, вот уже сижу около часа никак найти не могу....