Passing Multi-Select field parameters to a query

I just have a simple query to pull all rows for any values selected in that multi-select field.

Form name is Search
List box name is List11
Query name is Form Query

With a multiselect listbox you need to use a command button (cmdSearch for this example).

I am assuming your form is bound to the query "Form Query"

Expand|Select|Wrap|Line Numbers

1.  
2. Private Sub cmdSearch_Click()
3. Dim val As Variant
4. Dim strValues As String
5.  
6.   ' to get all the values selected into a string
7.   strValues=""
8.   For Each val In Me.List11.ItemsSelected
9.     strValues = strValues & "'" & Me.List11.ItemData(val) & "',"
10.   Next i
11.  
12.   ' remove the last comma
13.   strValues = Left(strValues, Len(strValues)-1)
14.  
15.   Me.Filter = "[FieldNameAsList] IN (" & strValues & ")"
16.   Me.FilterOn = True
17.  
18.   Me.Requery
19.  
20. End Sub
21.  
22.  

Thanks for the help. The code below should be placed in the On Click Event Procedure? Should I delete everything thats in there and paste the code below?

Thanks!