Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

组合框实现下拉模糊查询,改进版,简单快捷

时 间:2015-01-09 22:24:29
作 者:月皓星隐   ID:39720  城市:自贡
摘 要:据前人的代码改进了下,只需要在keyup 事件填写就可以了,支持首字母查询,代码简单,快捷,方便
正 文:

根据前人的代码改进了下,只需要在keyup 事件填写就可以了,支持首字母查询

Private Sub 开票单位_KeyUp(KeyCode As Integer, Shift As Integer)

'本程序实现下拉,并且可用键盘操作
'如果按下esc KeyCode = 27,按下 enter KeyCode = 13   按下up KeyCode = 38 按下down KeyCode = 40
    If KeyCode = 27 or KeyCode = 13 or KeyCode = 40 or KeyCode = 38 Then
        Exit Sub
    Else
        Dim h As String
        Dim sq As String
        h = "*" & Me!开票单位.Text & "*"   '这里的   Me!开票单位.Text  改成你的组合框名称

       '这里的SQL 改成你想要查询的表
        sq = "select 单位表.单位名称 from 单位表 where ((((单位表.单位名称) like '" & h & "') or ((单位表.单位首字母) like '" & h & "')))"

        Me.开票单位.RowSource = sq        '这里的 Me.开票单位 改成你 组合框控件名称
        Me.开票单位.Dropdown                 '这里的 Me.开票单位 改成你 组合框控件名称
    End If

End Sub



就这么几句代码就搞定了,是不是很简单,当然 你查询的表要有首字母的字段就可以用首字母查询

因为没有权限上传附件,只能上传到网盘le

链接: http://pan.baidu.com/s/1kTmSq83    提取密码: 2aq0



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助