access 组合框模糊筛选

目的

属性表设置
行来源/行来源类型都要更改


事件过程中写入-
Private Sub 供应商名称_KeyUp(KeyCode As Integer, Shift As Integer)
Dim a As String
a = “" & Me.供应商名称.Text & "”
Me.供应商名称.RowSource = “SELECT 供应商名称 from Q_供应商名单 Where 供应商名称 like '” & a & “’;”
Me.供应商名称.Dropdown
End Sub

网上的方法都写得很复杂，但我只写了一个事件过程就实现了，不知道是不是有啥不对