Set The ServerFilterByForm Property
acCmdServerFilterByForm
This code enables the ServerFilterByForm button in an Access 2002 run time application. See Knowledge Base Article Q283362 for more information.
'***************** Code Start *******************
'Orignal code from Microsoft site
Sub cmdSet_Click ()
Me.ServerFilterByForm = True
Me.Refresh
DoCmd.RunCommand acCmdServerFilterByForm
End Sub
'****************** Code End ********************