Я ищу код "хочу отфильтровать поле со списком (выпадающие данные) по ключевому слову при наборе текста". На форме у меня есть три комбинированных списка. 1) для статей 2) для компании 3) для каталогов
Мне удалось создать этот поисковый фильтр для одного комбинированного списка (статей), но я не знаю, как изменить его для двух других комбинированных списков в той же форме. Пример изображения (что я хочу):
Я использовал следующий код для этого. (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) Каталог.
Я пробовал по-разному, это не сработало. Мне нужно мнение эксперта. Спасибо