Toggle Filter
acCmdCreateShortcut
This routine allows you to turn an existing Filter On and Off. There are a number of steps required to ensure this example works.
- Add the code to a module
 - Add a buttons to a toolbar
 - Set the action for the new toolbar item to 
=TBToggleFilter() 
'***************** Code Start *******************
Function TBToggleFilter()
  DoCmd.RunCommand acCmdToggleFilter
End Function
'****************** Code End ********************

