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

组合框实现下拉模糊查询,改进版,简单快捷(全代码:粘贴即可使用)

时 间:2015-10-29 17:42:24
作 者:小英   ID:23698  城市:河池
摘 要:据前人的代码改进了下,只需要在keyup 事件填写就可以了,支持首字母查询,代码简单,快捷,方便,粘贴即可使用,不用修改任何字段名称
正 文:

    '**************************************************************************************************************
    '当前窗体中同一控件类型(文本框:acTextBox;组合框:acComboBox;命令按钮:acCommandButton)的批量组合框自动下拉
    '用法: 在窗体加载事件中写入以下代码 (OnGotFocus获得焦点时下拉)
    Dim ctrl   As Control
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acComboBox Then ctrl.OnChange = "=AutoDropDown定期检查()"
    Next
    '*************************************************************************************************************

 

Public Function AutoDropDown定期检查()
        Dim h As String
        Dim A As String
        Dim AA As String
        Dim sq As String
        A = Me.RecordSource '默认当前窗口记录源名称:
'        A = "tbl定期检查"  '自己指定表名: tbl定期检查"
'        MsgBox A, vbInformation
        AA = A & "." & Me.ActiveControl.Name
'        MsgBox AA, vbInformation
        h = "*" & Me.ActiveControl.Text & "*"
'        MsgBoxEx h, vbInformation

   If IsNull(Me.ActiveControl) Then
        sq = "select distinct " & AA & " from " & A & ""
   Else
        sq = "select distinct " & AA & " from " & A & " where ((((" & AA & ") like '" & h & "')))"
   End If

'        MsgBox sq, vbInformation
        Me.ActiveControl.RowSource = sq
        Me.ActiveControl.Dropdown
End Function

 

 



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

常见问答:

技术分类:

相关资源:

专栏作家

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