This article was previously published under Q197220
Novice: Requires knowledge of the user interface on single-user computers.
Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
View products that this article applies to.
Private Sub Form_Current()
If Me.FilterOn = False Then
Me.Filter = ""
Me.OrderBy = ""
End If
End Sub
Name: btnShowFilter Caption: Show Filter
Private Sub btnShowFilter_Click()
MsgBox Me.Filter
End Sub
((Customers.Country = "Germany"))
((Customers.Country = "Germany"))
Keywords: KB197220, kbprb