[Access] Meerdere keuzeselecties

[Zorg]

Ik ben druk bezig in access om een query op te laten bouwen aan de hand van een formulier. Ik heb een formulier met meerdere keuzelijsten. In de keuzelijsten zelf kunnen ook weer meerdere selecties worden gemaakt. Het uiteindelijke ontwerp moet zo worden dat er op basis van meerdere keuzes een query wordt gebouwd.

Nou lukt het me wel om één keuzelijst te koppelen aan het gedeelte in de query maar een tweede toevoegen lukt me maar niet . Dit is de code die ik tot nu toe heb:

code:

Private Sub cmdKnop_Click()

    On Error GoTo Err_cmdKnop_Click
    Dim MyDB As DAO.Database
    Dim qdef As DAO.QueryDef
    Dim i As Integer
    Dim strSQL As String
    Dim strWhere As String
    Dim strIN As String
    Dim flgSelectAll As Boolean
    Dim varItem As Variant
    
    Set MyDB = CurrentDb()

    strSQL = "SELECT * FROM qryTest"


    For i = 0 To lstKeuze.ListCount - 1
        If lstKeuze.Selected(i) Then
            If lstKeuze.Column(0, i) = "All" Then
                flgSelectAll = True
            End If
            strIN = strIN & "'" & lstKeuze.Column(0, i) & "',"
        End If
    Next i

   strWhere = " WHERE [Vertegenwoordiger] in " & _
              "(" & Left(strIN, Len(strIN) - 1) & ")"
    

    If Not flgSelectAll Then
        strSQL = strSQL & strWhere
    End If

    MyDB.QueryDefs.Delete "qryKlanttu"
    Set qdef = MyDB.CreateQueryDef("qryKlanttu", strSQL)
    
    

    DoCmd.OpenQuery "qryKlanttu", acViewNormal

    'Clear listbox selection after running query
    For Each varItem In Me.lstKeuze.ItemsSelected
        Me.lstKeuze.Selected(varItem) = False
    Next varItem

Exit_cmdKnop_Click:
    Exit Sub

Err_cmdKnop_Click:

    If Err.Number = 5 Then
        MsgBox "Wel eerst een keuze maken aub" _
               , , "Selectie is nodig!"
        Resume Exit_cmdKnop_Click
    Else
        'Write out the error and exit the sub
        MsgBox Err.Description
        Resume Exit_cmdKnop_Click
    End If
End Sub

Nou gaat het dus om hier een keuzelijst2 aan toe te voegen die dus in een tweede kolom in de query wordt geplaatst met de aangegeven selectie als criteria.

Ik heb al tig voorbeeld databases gedownload en ook deze geprobeerd aan te passen maar kom er helaas niet verder mee. Iemand misschien wat suggesties om me opver te helpen?

[Witte]

als je al zover bent, is het toch niet zo moeilijk om een tweede selectiecriterium toe te voegen aan je query?
Ik zou 2 booleans maken: selectie1 en selectie2
selectie1 zet je op true als er een selectie in lijst1 is, en zet je op false als er geen selectie in lijst1 is (all).
voor selectie2 doe je hetzelfde.
En dan:

if selectie1 or selectie2 then sqlstr = sqlstr + ' WHERE '
if selectie1 then sqlstr = sqlstr + string1
if selectie1 and selectie2 then sqlstr = sqlstr + ' AND '
if selectie2 then sqlstr = sqlstr + string2

vind ik zelf een fraaie oplossing!