ACC: How to Hide Duplicate Group Header Information on Report

MORE INFORMATION

1. Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0).
2. Create the following new select query in Design view based on the Categories, Products, and Order Details tables:

          Query: qryOrders
          ------------------------
          Field: CategoryName
             Table: Categories
          Field: ProductName
             Table: Products
          Field: OrderID
             Table: Order Details
             Criteria: <10300
          Field: Quantity
             Table: Order Details

3. Save the query as qryOrders, and then close it.
4. Create a new module. In the module Declarations section, declare a global variable called DupeHeader:

   Global DupeHeader as String

5. Save the module as basPrint and close it.
6. Create a new report in Design view based on the qryOrders query.
7. On the View menu, click Sorting And Grouping.
8. In the first row of the Sorting And Grouping dialog box, select CategoryName in the Field/Expression box.
9. In the second row of the Sorting And Grouping dialog box, select ProductName, and set the GroupHeader property to Yes.
10. Close the Sorting And Grouping dialog box.
11. On the View menu, click Field List.
12. Drag ProductName and CategoryName from the field list to the ProductName Header section of the report.
13. Drag OrderID and Quantity to the detail section of the report.
14. On the View menu, click Properties.
15. Set the OnFormat property of the ProductName header to the following event procedure:
    
    In Microsoft Access 7.0 and 97:

          Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount _
                As Integer)
          If DupeHeader = Me![CategoryName] Then
             Me![CategoryName].Visible = False
          Else
             Me![CategoryName].Visible = True
          End If
          DupeHeader = Me![CategoryName]
          End Sub

    In Microsoft Access 2.0:

    NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

          Sub GroupHeader3_Format(Cancel As Integer, FormatCount _
                As Integer)
          If DupeHeader = Me![Category Name] Then
             Me![Category Name].Visible = False
          Else
             Me![Category Name].Visible = True
          End If
          DupeHeader = Me![Category Name]
          End Sub
    						

16. Save the report as rptTest and close it.
17. Open the report in Print Preview and scroll through it. Any duplication of the CategoryName field in successive ProductName Headers will not be visible.