Filter continuous forms with value from a Combo Box

[WCStarks]

I need to be able to filter a continuous form based on a value in a combo box. The code below does not work. How can I fix it to make it work? I suppose the issue is related to using quotes in the Me.Filter = expression, but I don't understand when and how to use quotes in certain kinds of expressions, such as this.

Private Sub cbo_FilterOn_AfterUpdate()
If IsNull(Me.cbo_FilterOn) Then
  Me.Filter = ""
  Me.FilterOn = False
Else
  Me.Filter = InStr[Comment], cbo_FilterOn)
  Me.FilterOn = True
End If
End Sub

[pbaldy]

Probably

Me.Filter = "[Comment] Like '*" & Me.cbo_FilterOn & "*'"

[WCStarks]

Thank you. That works!

[WCStarks]

Never mind the question about the single quote. After further thought, I understand.

I guess the control did not actually need to be a combo box. It could have been a simple unbound text box.

How can I modify the expression to search two fields, [Comment] and [Vendor]? If I enter a vendor name, it will not likely find that value in [Comment] field and vice-a-versa.

[pbaldy]

When I have multiple/optional search fields, I tend to use dynamic SQL and build up a string that includes any values entered. Jason demonstrates it in the sample db here:

http://www.baldyweb.com/BuildSQL.htm

You can use it for the filter too.

[WCStarks]

As I was looking at your suggestion, it occurred to me I might try to use an OR in the expression such as:

Private Sub cbo_FilterOn_AfterUpdate()
If IsNull(Me.cbo_FilterOn) Then
  Me.Filter = ""
  Me.FilterOn = False
Else
  Me.Filter = "[Comment] Like '*" & Me.cbo_FilterOn & "*'" & " OR " & "[Vender] Like '*" & Me.cbo_FilterOn & "*'"
  Me.FilterOn = True
End If
End Sub

And this works too. [I know, I misspelled "Vendor" when I originally named the field.]
Thanks again for your help.

[pbaldy]

Glad you got it working.