VBA - 访问列表框选择的项目作为条件到自定义查询中的字段

Question

我的最终目标是循环浏览一个ListBox对象及其每个选定项目，我想要查询具有所选WHERE条件的字段。具有两个字段A和B的表格的图像。注：在列表框的项目是一个distinct查询领域A.

的结果的图片显示会发生什么，当我从字段框A选择2 and 3。点击Query后，它会将其追加到正下方的框中，并将其添加到正下方的框中。我的代码不会崩溃，不会出错，并且不会投诉，但它不起作用。 我记得ResultSet作为表将从下面的代码片段返回。

Private Sub Command41_Click() 

    ' Declare Variables 
    Dim frm As Form, ctl As Control 
    Dim varItm As Variant 
    Dim A_outputString As String 
    Dim B_outputString As String 
    Dim A_flag As Boolean 
    Dim B_flag As Boolean 

    ' Set Variables 

    ' Build A String 
    For Each varItm In Forms!Form1!A_LB.ItemsSelected 
     A_outputString = A_outputString & Forms!Form1!A_LB.ItemData(varItm) & "," 
    Next varItm 

    ' Build B String 
    For Each varItm In Forms!Form1!B_LB.ItemsSelected 
     B_outputString = B_outputString & Forms!Form1!B_LB.ItemData(varItm) & "," 
    Next varItm 


    ' Filter A String 
    If A_outputString <> "" Then 
     'MsgBox (outputString) 
     Forms!Form1!A_TB = A_outputString 
     A_flag = True 
    Else 
     'MsgBox ("No input selected") 
     A_flag = False 
    End If 

    ' Filter B String 
    If B_outputString <> "" Then 
     'MsgBox (B_outputString) 
     Forms!Form1!B_TB = B_outputString 
     B_flag = True 
    Else 
     'MsgBox ("No input selected") 
     B_flag = False 
    End If 

    ' Decision Making 
    If A_flag Then 
     'MsgBox ("A_FLAG ON") 
    End If 
    If B_flag Then 
     'MsgBox ("B_FLAG ON") 
    End If 


    ' Testing Variables 
    Dim outputString As String 

    ' Database Variables 
    Dim rs As DAO.Recordset 
    Dim db As DAO.Database 
    Dim strSQL As String 
    Set db = CurrentDb 


    '**** CORRECT SQL QUERY ****' 
    ' 
    ' SELECT T.A 
    ' FROM Table1 T 
    ' WHERE (((T.A)="1" OR (T.A)="2")); 
    ' 

    ' BUILD AND STATEMENTS 
    Dim andStatements As String 
    andStatements = "(" 
    For Each varItm In Forms!Form1!A_LB.ItemsSelected 
     andStatements = andStatements & "(T.A)=" & Chr(34) & Forms!Form1!A_LB.ItemData(varItm) & Chr(34) & " OR " 
    Next varItm 
    andStatements = Left(andStatements, Len(andStatements) - 5) 
    andStatements = andStatements & ")" 

    strSQL = "SELECT T.A FROM Table1 T WHERE (" & andStatements & ");" 
    Forms!Form1!SQL_TB = strSQL 

    Set rs = db.OpenRecordset(strSQL) 

    'Set rs = db.OpenRecordset(strSQL) 
    'Do While Not rs.EOF 
    ' MsgBox (rs!myField) 'myField is a field name in table myTable 
    ' rs.MoveNext    'press Ctrl+G to see debuG window beneath 
    'Loop 

End Sub 

所以正确的语法生成，因为我没有在访问查询生成器的确切相同的查询，并且那它究竟是如何期待。

想法？

编辑1：

改变AND SQL逻辑OR SQL逻辑后，我得到以下错误：

Answer 1

恐怕你的逻辑是有缺陷的。字段不能有两个值同时

'**** CORRECT SQL QUERY ****' 
' 
' SELECT T.A 
' FROM Table1 T 
' WHERE (((T.A)="1" And (T.A)="2")); 
' 

您需要使用OR代替AND

SELECT T.A 
FROM Table1 T 
WHERE (((T.A)="1" OR (T.A)="2")); 

Answer 2

解决：

如果没有人看同样的问题，this resource很有用。这是实际在Access窗体的另一个选项卡中运行查询的代码。

' EXECUTE SQL STRING IN ANOTHER WINDOW 
Dim db As DAO.Database 
Dim qdf As DAO.QueryDef 
Set db = CurrentDb 
' queryQ is an empty query, which gets updated by my sqlStr 
Set qdf = db.QueryDefs("queryQ") 
qdf.SQL = strSQL 
DoCmd.OpenQuery "queryQ" 
DoCmd.Close Form1, Me.Name 
Set qdf = Nothing 
Set db = Nothing 

这是如何使用我的最终结果：

而且所有的位于功能：

Clear Text Boxes， Radio Button Logic和 Query with Button。