Попытка добавить текстовое поле в мою форму поиска, которое бы отфильтровывало одно поле [ItemDescription] на основе слов, вводимых в него.Например, если я наберу "Plate Steel", я получу все записи, в которых есть как Plate, так и Steel (в любом порядке).Остальные будут отфильтрованы.
Я нашел этот код 9 лет назад у кого-то, кто больше не активен.Я попробовал это, и никакой код не был создан или введен в поле «Фильтр» в свойствах формы.
Я ожидал увидеть это:
Когда я выделю слово «Тарелка» и нажмуВыберите кнопку в главном меню, выберите «Содержит» и сделайте то же самое для «Стали». Я получаю это в поле «Фильтр» свойств формы.
(([Item]. [ItemDescription] Like " Тарелка")) AND ([Item]. [ItemDescription] Как" Steel")
Может кто-нибудь взглянуть на это и сообщить мне, почему я не могу получитьэто на работу.Автор утверждал, что это рабочий код.
Private Sub btnSearch_Click ()
'Проверка наличия параметров поиска
If IsNull (Me.txtSearch) Then
MsgBox ("Пожалуйста, введите критерии поиска.")
Остальное
Dim strSearch As String
Dim strLoad As String
Dim strSpaceFix AsString
'Загрузить содержимое текстового поля
strLoad = Me.txtSearch.Value
' Заменить пробелы дополнительным поисковым кодом
strSpaceFix = Replace (strLoad,"", "" & "" "AND [ItemDescription] Как" "" & "", 1, -1)
'Установить строку поиска
strSearch ="([ItemDescription] Like" "" & strSpaceFix & "" ")"
'Раскомментируйте, чтобы увидеть строку поиска:
' MsgBox (strWhere)
'Отфильтровать все
Me.Filter = strWhere
Me.FilterOn = True
' Пустое поле поиска
Me.txtSearch.Value= ""
End If
End Sub
Примечание. Когда я снимаю комментарий, чтобы увидеть строку поиска: я получаю открывающуюся вдову, но в ней ничего нет.
Элементы формы / таблицы:
btnSearch-Buttonначать поиск
btnSearchClear-Button, чтобы показать все записи / очистить поиск
txtSearch-Unbound текстовое поле, без значения по умолчанию
[ItemDescription] - текстовое поле вФорма для поиска (краткий текст)
Непрерывная форма на основе таблицы с именем Item
Кнопки находятся в разделе заголовка формы.