Фильтр внутри поля со списком в то время как введите ключевое слово в форму доступа - PullRequest
Новая
       47

Фильтр внутри поля со списком в то время как введите ключевое слово в форму доступа

0 голосов
/ 02 мая 2020

Я ищу код "хочу отфильтровать поле со списком (выпадающие данные) по ключевому слову при наборе текста". На форме у меня есть три комбинированных списка. 1) для статей 2) для компании 3) для каталогов

Мне удалось создать этот поисковый фильтр для одного комбинированного списка (статей), но я не знаю, как изменить его для двух других комбинированных списков в той же форме. Пример изображения (что я хочу):

enter image description here

Я использовал следующий код для этого. (1) 1st Publi c Sub FilterComboAsYouType (combo As ComboBox, по умолчанию SQL As String, lookupField As String) (2) для конкретного события изменения комбинированного списка. 

Public Sub FilterComboAsYouType(combo As ComboBox, defaultSQL As String, lookupField As String)
Dim strSQL As String

        If Len(Article.Text) > 0 Then
          strSQL = defaultSQL & " WHERE " & lookupField & " LIKE '*" & Article.Text & "*'"
  Else
          strSQL = defaultSQL    'This is the default row source of combo box
  End If
           Article.RowSource = strSQL
           Article.Dropdown

End Sub 

Private Sub Article_Change()
FilterComboAsYouType Me.Article, "SELECT * FROM ArticleNameTbl", "ArticlesName"
End Sub

Теперь проблема в том, что выше 1-го кода "FilterComboAsYouType et c" исправлено с помощью поля со списком "Article". Я не знаю, как сделать это возможным для двух других комбинированных списков в одной форме. 1) Компания. 2) Каталог.

Я пробовал по-разному, это не сработало. Мне нужно мнение эксперта. Спасибо

...