Access模糊查询功能，输入关键字后自动展示下拉选项关键词
如图：
我这边用了组合框（名称随便取 Combo货号 ），查询按钮 工具
先做组合框下拉功能
点击组合框，属性设置
点击更新后 进入 事件过程设置，代码如下
Private Sub Combo货号_AfterUpdate()
Combo = True
End Sub
点击更改，进入事件过程设置，代码如下
Private Sub Combo货号_Change()
If Combo Then
Me.Combo货号.RowSource = "select DISTINCT 产品货号 from 商品信息表 where 产品货号"
Combo = False
Else
Me.Combo货号.RowSource = "select DISTINCT 产品货号 from 商品信息表 where 产品货号 like '*" & Me.Combo货号.Text & "*'"
Me.Combo货号.Dropdown ''' 属性表中关闭 [自动展开] ,代码中写 Dropdown '''
End If
End Sub
然后点击查询按钮
这就可以进行模糊查询了
网友评论