【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

附   件:

点击下载此附件 

图   示: