ACC2000: How to Filter a Report Using a Form's Filter

ID: Q208548


The information in this article applies to:

Moderate: Requires basic macro, coding, and interoperability skills.

This article applies only to a Microsoft Access database (.mdb).


SUMMARY

This article describes how to create a command button on a filtered form that, when clicked, opens a report and applies the filter that is on the form to the report.


MORE INFORMATION

This example uses the sample database Northwind.mdb. The technique involves creating a new form and a new report. The form uses event procedures to apply a filter and to open the new report. The report uses the Filter property to apply the same filter that is used in the form.

  1. Open the sample database Northwind.mdb.


  2. In the Database window, click Reports under Objects, and then click New.


  3. In the New Report dialog box, click AutoReport: Tabular, select Customers from the Choose the table or query where the object's data comes from list, and click OK.


  4. Close and save the report as rptCustomers.


  5. In the Database window, click Forms under Objects, and then click New.


  6. In the New Report dialog box, click AutoForm: Tabular, select Customers from the Choose the table or query where the object's data comes from list, and click OK.


  7. Close and save the form as frmFilterForm.


  8. Open frmFilterForm in Design view.


  9. Increase the size of the form footer section so that it can hold three command buttons.


  10. Create a command button in the form footer and set its properties as follows:


  11. 
       Name: cmdOpenReport
       Caption: Open Report
       OnClick: [Event Procedure] 
  12. Set the OnClick property of the command button to the following event procedure:


  13. 
    Private Sub cmdOpenReport_Click()
        If Me.Filter = "" Then
            MsgBox "Apply a filter to the form first."
        Else
            DoCmd.OpenReport "rptCustomers", acViewPreview, , Me.Filter
        End If
    End Sub 
  14. Create a second command button in the form footer and set its properties as follows:


  15. 
       Name: cmdClearFilter
       Caption: Clear Filter
       OnClick: [Event Procedure] 
  16. Set the OnClick property of the second command button to the following event procedure:


  17. 
    Private Sub cmdClearFilter_Click()
        Me.Filter = ""
    End Sub 
  18. Create a third command button in the form footer and set its properties as follows:


  19. 
       Name: cmdClose
       Caption: Close
       OnClick: [Event Procedure] 
  20. Set the OnClick property of the third command button to the following event procedure:


  21. 
    Private Sub cmdClose_Click()
        DoCmd.Close acForm, Me.Form.Name
    End Sub 
  22. Set the following properties for the frmFilterForm form:


  23. 
       OnOpen: [Event Procedure]
       OnClose: [Event Procedure] 
  24. Set the OnOpen property of the form to the following event procedure:


  25. 
    Private Sub Form_Open(Cancel as Integer)
        Me.Filter = ""
    End Sub 
  26. Set the OnClose property of the form to the following event procedure:


  27. 
    Private Sub Form_Close()
        DoCmd.Close acReport, "rptCustomers"
    End Sub 
  28. Switch the form to Form view.


  29. On the toolbar, click the Filter By Form button to set a filter, and then click the Apply Filter button to apply the filter.


  30. Click the Open Report button on the form. A report should appear with the same filter that was applied to the form.



REFERENCES

For more information about the Filter property, click Microsoft Access Help on the Help menu, type "Filter Property" in the Office Assistant or the Answer Wizard, and then click Search to view the topics returned.

For more information about Filter By Form, click Microsoft Access Help on the Help menu, type "Modify a filter in the Filter By Form window in a table, query, or form" in the Office Assistant or the Answer Wizard, and then click Search to view the topics returned.

For more information about Filter By Selection, click Microsoft Access Help on the Help menu, type "Filter records by selecting values in a form or datasheet" in the Office Assistant or the Answer Wizard, and then click Search to view the topics returned.

Additional query words:


Keywords          : kbdta FmrCdbeh 
Version           : WINDOWS:2000
Platform          : WINDOWS 
Issue type        : kbhowto 

Last Reviewed: June 10, 1999