This example allows the user to select a filter to apply to a form without needing to see the Filter Design window. To try out this example add a command button to your form. Call it cmdFilter and paste the code in the form module.
'***************** Code Start ******************* 'This code was originally written by Terry Wickenden. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged. Private Sub cmdFilter_Click () On Error GoTo errFilter 'Turn off screen refresh Application.Echo False 'Open the filter design window DoCmd.RunCommand acCmdAdvancedFilterSort 'Display the Applicable Query dialog DoCmd.RunCommand acCmdLoadFromQuery 'Hide the filter design window DoCmd.RunCommand acCmdWindowHide 'Apply the selected filter DoCmd.RunCommand acCmdApplyFilterSort ExitFilter: 'Turn the screen refresh back on Application.Echo True Exit Sub errFilter: Select Case Err Case 2501 'Cancel selected in the Applicable Query Window ' close the filter window DoCmd.Close Case Else MsgBox Err.Number & ":- " & vbCrLf & Err.Description End Select Resume ExitFilter End Sub '****************** Code End ********************
Return to Example List