Filter data in a form using a multi select box

[Guest]

Hi there,

Could you please provide me with a code for getting results in a form
details section using a multi select box in the same form (in header) as
filter?

Thanks for a prompt answer

 

[Guest]

Try something like the following untested air-code:

Dim strFilter As String
Dim varSelected As Variant

strFilter = ""
For Each varSelected in Me!MyListBox.ItemsSelected
strFilter = strFilter & Me!MyListBox.ItemData(varSelected) & ", "
Next varSelected

If Len(strFilter) > 0 Then
strFilter = Left$(strFilter, Len(strFilter) - 2)
strFilter = "MyField IN (" & strFilter & ")"
Me.Filter = strFilter
Me.FilterOn = True
End If

(replace MyListBox and MyField with the actual names)

This assumes that MyField is a numeric field. If it's text, you'll need to
add quotes around the values:

strFilter = strFilter & Chr$(34) & _
Me!MyListBox.ItemData(varSelected) & _
Chr$(34) & ", "