How do I run a query for a form with multi-select list box

  • Thread starter Thread starter ria
  • Start date Start date
Try this:

Dim strwhere As Variant
Dim varItem As Variant

If Me!Your List Box Name.ItemsSelected.Count = 0 Then Exit Sub

For Each varItem In Me!Your List Box Name.ItemsSelected

strwhere = strwhere & "'" & Me!Your List Box Name.Column(0, varItem) & "'" & ","

Next varItem

strwhere = Left$(strwhere, Len(strwhere) - 1)
strwhere = "[Auto_Box_ID] IN (" & strwhere & ")"
DoCmd.OpenForm FormName:="frmIssue", wherecondition:=strwhere
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Using IN( ) function in a query 7
Query with Picklist Crieteria - Part 2 1
IN Clause using multi-select form parameter 6
pass multi selected list box to query 2
Running a query on items selected from a list box. 4
Unresolved Please Revisit - Multi Select query criteria from form 2
Querying against a table. . . 2
multi-select list box query 1

Back
Top