Help with unbound filter form code

[gojets1721]

I have an unbound form to filter a report. One of the unbound fields lets the user enter a customer last name to filter down to records.

I want it so the user can enter multiple names, separated by a semi colon, and pull up records with either last name. The below code works fine if the user enters only one name, but once you enter two or more, no records show (even though there are matching records).

    With Me.txtCustomerLastName
      If Len(.Value) > 0 Then
          strCriteria = strCriteria & " AND [CustomerLastName] IN ('" & Replace(.Value, ";", ",") & "')"
      End If
    End With

If i type in Johnson;Smith into the textbox, debug.print shows this:

strCriteria: " [CustomerLastName] IN ('johnson,smith')"

Any suggestions on how to fix? I can post the full code or an example DB if needed

Thanks

 

[plog]

You need to replace the semicolons with apostrophes and commas. It needs to look like this:

strCriteria: " [CustomerLastName] IN ('johnson' , 'smith')"

 

[gojets1721]

That did the trick! Thanks so much!