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

【Access列表框多级联动查询示例】院校查询多级联动查询的示例,利用Access列表框实现多条件查询,Access列表框组合查询,Access列表框联动查询,Access列表框查询

时 间:2020-12-09 09:35:15
作 者:欧志华   ID:51519  城市:广州
摘 要:利用列表框可以多选的特性,实现多条件查询。
正 文:

利用列表框可以多选的特性,实现多条件查询:

首先把列表框属性[多重选择]设置“简单”


代   码:
    Dim vari As Variant
    Dim strWhere As String
    Dim strSQL As String
   
    strSQL = "Select * FROM 提前文理查询"
    With Me.学校名称
        If .ItemsSelected.Count = 0 Then Exit Sub
        For Each vari In .ItemsSelected
            strWhere = strWhere & "'" & .Column(0, vari) & "',"
        Next
    End With
    strWhere = Left(strWhere, Len(strWhere) - 1)
    strSQL = strSQL & " where [学校名称] in (" & strWhere & ")"
    '    Debug.Print strSQL
    Me.提前文理查询子窗体.Form.RecordSource = strSQL


附   件:

点击下载此附件 


图   示:

点击图片查看大图

点击图片查看大图



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

常见问答:

技术分类:

相关资源:

专栏作家

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