vba - 使用MS Access组合框键入时进行搜索

Question

我想在 Microsoft Access 中创建一个简单的按需搜索组合框，如下图所示。



注意:上面的图片来自我想从here实现的复杂实现

我的组合框名为ctlSearch。使用Visual Basic，我想了解onChange事件，检测用户输入并因此完善可能结果的列表。是否可以采用这种方法来实现“按需搜索”组合框？

Answer 1

这是我用来按类型过滤组合框的函数:

Public Sub FilterComboAsYouType(combo As ComboBox, defaultSQL As String, lookupField As String)
Dim strSQL As String
    If Len(combo.Text) > 0 Then
        strSQL = defaultSQL & " WHERE " & lookupField & " LIKE '*" & combo.Text & "*'"
    Else
        strSQL = defaultSQL    'This is the default row source of combo box
    End If
    combo.RowSource = strSQL
    combo.Dropdown
End Sub

将组合框的“自动展开”属性设置为False，然后调用Sub
像这样的Change事件中的FilterComboAsYouType:

Private Sub cmbProductName_Change()
    FilterComboAsYouType Me.cmbProductName, "SELECT * FROM Product", "ProductName"
End Sub