ACC: Cannot Completely Remove Form Filter (172284)

SYMPTOMS

When you apply a filter or sort to a form and then click Remove Filter/Sort on the Records menu, it appears that the filter or sort has been removed. However, if you check the Filter property and OrderBy property in a Visual Basic for Applications procedure or in the form's property sheet, you see that these properties contain the values that were in effect before you removed the filter or sort.

CAUSE

The Apply Filter/Sort and Remove Filter/Sort commands on the Records menu change only the values of the FilterOn and OrderByOn properties. These commands do not affect the values of the forms's Filter or OrderBy properties. Selecting Remove Filter/Sort on the Records menu simply sets FilterOn and OrderbyOn to False. As a result, the form displays all of the records, because, although the filter or sort is still present, it is no longer in effect.

RESOLUTION

Use either of the following methods to completely remove a filter or sort from a form.

Method 1

Use the form's property sheet to remove the filter or sort. To do so, follow these steps:

Open the form in Design view.
On the Edit menu, click Select Form.
On the View menu, click Properties and select the Data tab.
Delete the contents of the Filter box or the OrderBy box.

Method 2

Use a macro or a Visual Basic for Applications procedure to remove a filter or sort. In the following example, the filter and sort are removed during the Current event of the form.

   Private Sub Form_Current()
      If Me.FilterOn = False Then
         Me.Filter = ""
         Me.OrderBy = ""
      End If
   End Sub

Note that if you use this event procedure to remove a filter, the only way to activate the filter again is to recreate it. On the Records menu, point to Filter and click the appropriate command to re-create the filter.

MORE INFORMATION

Steps to Reproduce Behavior

Start Microsoft Access and open the sample database Northwind.mdb.
Open the Customers form in Design view, and add a command button to the form. Set its properties as follows:
```
      Name: btnShowFilter
      Caption: Show Filter
						
```

Set the OnClick property of the command button to the following event procedure:

      Private Sub btnShowFilter_Click()

         MsgBox Me.Filter

      End Sub

On the View menu, click Form View.
Select the contents of the Country field, which should be "Germany."
On the Records menu, point to Filter and click Filter by Selection. Note that only the records of customers located in Germany are displayed. The text to the right of the navigation buttons also indicates that the records have been filtered.
Click Show Filter and note that the value of the Filter property is
```
      ((Customers.Country = "Germany"))
						
```
On the Records menu, click Remove Filter/Sort. Note that the records of all customers are now displayed.
Click Show Filter and note that the value of the Filter property is still as follows:
```
      ((Customers.Country = "Germany"))
						
```