ACC: How to Test a User-Defined Filter in Filter By Form

MORE INFORMATION

1. Open the sample database Northwind.mdb.
2. Open the Employees form in Design view.
3. Set the OnApplyFilter property to the following event procedure:

          Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As _
             Integer)
             Me.TimerInterval = 100
          End Sub
   					

4. Set the OnTimer property to the following event procedure:

          Private Sub Form_Timer()
             Dim strfilter As String
             Me.TimerInterval = 0
             If IsNull(Me.Filter) Then Exit Sub
             strfilter = Me.Filter
             If Me.RecordsetClone.RecordCount = 0 Then
                 MsgBox "The selected filter:" & Chr(13) & _
                 strfilter & Chr(13) & _
                 "returns no records. Try a less restrictive search."
                 ' Form, Records, Filter, Filter By Form.
                 DoCmd.DoMenuItem 0, 5, 0, 0, acMenuVer70
             End If
          End Sub
   					

5. Save and open the form in Form view.
6. On the Records menu, point to Filter, and then click Filter By Form.
7. In the First Name field, select Laura.
8. On the Filter menu, click Apply Filter/Sort. Note that the record for Laura Callahan is returned.
9. On the Records menu, point to Filter, and then click Filter By Form.
10. In the First Name field, type "Test" (without the quotation marks).
11. On the Filter menu, click Apply Filter/Sort.
12. Note that the following message appears, indicating the filter does not return records:

    The selected filter:
    ((Employees.FirstName="Test"))
    returns no records. Try a less restrictive search.