How do I remove a filter

[cowboy]

I set the filter with the following:


DoCmd.ApplyFilter , "[Area] = '" & Forms("IForm").cmbArea.Value & "'"

Now the combo box has an option "All" where I need to remove the filter. How do I remove the filter?

I tried:
1 - DoCmd.ApplyFilter , "[Area] = '*'"
2 - Forms("IForm").filter = ""

and several other things. I would imagine this to be a simple fix, thanks for help.

[TheShabz]

How bout instead of applying the filter, then removing it if its all, creating an If statement that will only apply the filter if its not "all"?

[cowboy]

If Forms("IForm").cmbArea <> "All" Then
DoCmd.ApplyFilter , "[Area] = '" & Forms("IForm").cmbArea.Value & "'"
End If

ok so the person comes into the form and the combo box is defaulted to "All" then is switched to the second value which would be "Area 1" which will input the following code:
DoCmd.ApplyFilter , "[Area] = '" & Forms("IForm").cmbArea.Value & "'" Which will produce
DoCmd.ApplyFilter , "[Area] = 'Area 1'"
At this point they move the combo box back to "All" and it doesnt remove the filter even with the shown if statement.

[TheShabz]

First off, I'm not a fan of default values. From personal experience, I've noticed it promotes user laziness. I'd force the user to pick one. Then run that if statement from a command button. I dont know off the top of my head how to undo a filter, unless you make a redundant query as the failsafe to recreate your original dataset.

[pbaldy]

Try this shot-in-the-dark:

If Forms("IForm").cmbArea <> "All" Then
  DoCmd.ApplyFilter , "[Area] = '" &  Forms("IForm").cmbArea.Value & "'"
Else
  Me.FilterOn = False
End If

[TheShabz]

cosign on that idea pbaldy.
more on that here.
http://www.access-programmers.co.uk/...d.php?t=170924

[maximus]

Me.FilterOn=False

Or

Try this

Me.Filter=""

the second one works too.

[cowboy]

Nice got this one working, now I need help on why in the world this other question isnt working
https://www.accessforums.net/forms/f...king-5378.html