Список выпадающих списков для поиска в текстовом поле - PullRequest
0 голосов
/ 31 марта 2020

Я хочу выполнить поиск по списку в соответствии со списком в выпадающем списке для поиска в текстовом поле, и оно отобразится в списке. У меня есть мой код, но только 1 & 2 столбец будет доступен для поиска; остальные не.

Private Sub UserForm_Activate()
         Me.ComboBox1.Clear

         Me.ComboBox1.AddItem "Customer"
         Me.ComboBox1.AddItem "Request No."
         Me.ComboBox1.AddItem "Purchased Request"
         Me.ComboBox1.AddItem "New Raised PR"
         Me.ComboBox1.AddItem "Material Reservation"
         Me.ComboBox1.AddItem "Service Request"
         Me.ComboBox1.AddItem "Call Off P.O."
         Me.ComboBox1.AddItem "P.O."
         Me.ComboBox1.AddItem "GRN"

 End Sub

 Private Sub cmdSearch_Click()
 If Me.txtSV.Value = "" Then

    MsgBox "PLease enter the search value.", vbOKOnly + vbInformation, "Search"
    Exit Sub

End If

    Call CustomerName
End Sub

Private Sub ComboBox1_Change()
     If Me.EnableEvents = False Then Exit Sub

     If Me.ComboBox1.Value = "All" Then

    Call Reset
Else

    Me.txtSV.Value = ""
    Me.txtSV.Enabled = True
    Me.cmdSearch.Enabled = True

End If
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...