Access模糊查询功能制作

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

然后点击查询按钮



这就可以进行模糊查询了

©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容