Query based on Values Selected in List Box

[ashleybyrdnc]

I have a list Box in Form1 of all SalesReps, it is set to Multi-Select and I want to be able to pull the values that are selected in a Query(Can be one or Multi Reps selected). I have tried =[Forms]![Form1]![ListBox1] in the query and that doesn't work. Does anyone know how to do this?

Thanks,

 

[bubba100]

What do you mean "that didn't work"? Did it do nothing, return what you didn't expect or give an error message. If your expression was in the the critera section in the query try removing the equals sign.

 

[ashleybyrdnc]

It didn't give me an error, the query ran but nothing showed up in the query.

 

[JBinQLD]

Try this, adapted from help file,

    Dim ctlSource As Control
    Dim strCrit As String
    Dim intCurrentRow As Integer
    
    Set ctlSource = frm!lstSource
    
    For intCurrentRow = 0 To ctlSource.ListCount - 1
        If ctlSource.Selected(intCurrentRow) Then
            strCrit = strCrit & ctlSource.Column(0, _
                 intCurrentRow) & " OR "
        End If
    Next intCurrentRow
    
    'trim last " OR "
    if nz(strCrit,"")<>"" then strCrit=left(strCrit,len(strCrit)-4)

    'put or criteria in a text control
    frm!txtCrit=strCrit

Now run your query but set the criteria to be frm!txtCrit...

JB

 

[MajP]

faq701-6099