Hi,

I'm headache about filter VBA...:mad:

Refer to filter.jpg, I did click on filter command but there is no report pop up.

Kindly assist to look into my VBA, whichever it's goes wrong.


Thanks!

Looking at your VBA code you have not encapsulated the variants in quotes

It should Read "[Field]='" & Criteria & "' And "

Only do this if the variants are string variables

CodeMaster::cool:

Hi DCrake,

I tried your solution but seems not working & pop up error as per attached.
Appreciate your help!


Thanks.

Use the Client ID and not the name displayed, it's easier and less prone to error

You are not doing what DCrake informed you of. Take a close look at where the apostrophes ( ' ) are located:


If Not IsNull(Me.txtClient) Then
stWhere = "[Client] = '" & Me.txtClient & "' And "
blnTrim = True
End If

If Not IsNull(Me.txtName) Then
stWhere = stWhere & "[Name] = '" & Me.txtName & "' And "
blnTrim = True
End If


.