在窗体中建一个组合框:商品,

行来源:Select 商品ID, 品 FROM 商品表;

列数:2

列标题:否

列宽:0cm;3cm

限于列表:是

窗体代码如下:

Option Compare Database
Dim B

Private Sub 商品_Change()

    Dim A As String
    A = "*" & Me.商品.Text & "*"
    Me.商品.RowSource = "Select 商品ID, 商品名称 FROM 商品表 Where 商品名称 like '" & A & "';"
    Me.商品.Dropdown
    B = Me.商品.Column(0, 0)

End Sub

Private Sub 商品_NotInList(NewData As String, Response As Integer)

    Dim ctl As Control
    Set ctl = Me!商品
    Response = acDataErrContinue
    ctl.Undo
    Me.商品 = B
    Me.商品.RowSource = "Select 商品ID, 商品名称 FROM 商品表;"
    SendKeys ("{Tab}")
   
End Sub

此种方法有一个缺限,就是输入中无法用键盘上下键再选择