How to filter by contain

**margzj** · 07-15-2017, 02:14 AM

This code only works for exactly equal in filter.

Code:

    Forms("frmMain").Filter ="[Remarks] = " & Chr(34) & Me.Remarks & Chr(34)
    Forms("frmMain").FilterOn =True

I also try to replace the = to Like still not working.

**CJ_London** · 07-15-2017, 03:09 AM

try

Forms("frmMain").Filter ="[Remarks] Like '*" & Me.Remarks & "*'"

**June7** · 07-15-2017, 03:11 AM

If you want to do wildcard pattern matching:

Forms("frmMain").Filter = "[Remarks] LIKE '*" & Me.Remarks & "*'"

**ssanfu** · 07-15-2017, 03:19 AM

To match everything before and after the string in Me.Remarks, try

Code:

    Forms("frmMain").Filter = "[Remarks] Like " & Chr(34) & "*" & Me.Remarks & "*" & Chr(34)
    Forms("frmMain").FilterOn = True

To match anything before the string in Me.Remarks, try

Code:

    Forms("frmMain").Filter = "[Remarks] Like " & Chr(34) & "*" & Me.Remarks & Chr(34)
    Forms("frmMain").FilterOn = True

To match anything after the string in Me.Remarks, try

Code:

    Forms("frmMain").Filter = "[Remarks] Like " & Chr(34) & Me.Remarks & "*" & Chr(34)
    Forms("frmMain").FilterOn = True

**margzj** · 07-15-2017, 03:20 AM

Nothing is happening when i clicked the search button, no error either.

**ssanfu** · 07-15-2017, 03:21 AM

Where did you have the code? Post the event code.

**margzj** · 07-15-2017, 08:30 AM

Thank you this is working

Originally Posted by ssanfu

To match everything before and after the string in Me.Remarks, try

Code:

    Forms("frmMain").Filter = "[Remarks] Like " & Chr(34) & "*" & Me.Remarks & "*" & Chr(34)
    Forms("frmMain").FilterOn = True

To match anything before the string in Me.Remarks, try

Code:

    Forms("frmMain").Filter = "[Remarks] Like " & Chr(34) & "*" & Me.Remarks & Chr(34)
    Forms("frmMain").FilterOn = True

To match anything after the string in Me.Remarks, try

Code:

    Forms("frmMain").Filter = "[Remarks] Like " & Chr(34) & Me.Remarks & "*" & Chr(34)
    Forms("frmMain").FilterOn = True