Filter report using like operator

[Belebala]

I have the code for filtering report on multiple selections in a list box, but how do I modify the following code to use "like" operator instead of "in". I tried to replace:
strWhere = "[MyField] LIKE ('*" & Left$(strWhere, lngLen) & "*')"
by
strWhere = "[MyField] IN (" & Left$(strWhere, lngLen) & ")"
but it doesn't work. Anyone could help?


Dim vItem As Variant
Dim lngLen as Long

With Me.MyListbox
For Each vItem In .ItemsSelected
If Not IsNull(vItem) Then
strWhere = strWhere & """" & .ItemData(vItem) & """, "
End If
Next
End With
lngLen = Len(strWhere) - 2 'Without trailing comma and space.
If lngLen > 0 Then
strWhere = "[MyField] IN (" & Left$(strWhere, lngLen) & ")"
End If

[PEB]

Hey,

In is supposed to be used with series of values...
In (1, 2, 3, 5, 8)

With your string do you give a serie of values?

Or if it's an sql it should be:

In (SELECT MyNumber FRM Numbers)

So there is the syntax for subquery and not for an ordinary query!

:)