ACC2000: How to Create Page Totals on a Report

Article ID: 216311 - View products that this article applies to.
This article was previously published under Q216311
Moderate: Requires basic macro, coding, and interoperability skills.

This article applies to a Microsoft Access database (.mdb) and to a Microsoft Access project (.adp).

Expand all | Collapse all

SUMMARY

This article shows you how to can create a running total for each page of a report.

MORE INFORMATION

You can use the RunningSum property to calculate record-by-record or group-by-group totals in a report. Such a device is not available if you want to show a total on each page.

To sum an item per page, follow these steps:
  1. Open the report in Design view.
  2. On the View menu, click Code.
  3. Type the following lines in the Declarations section:
    Option Compare Database
Option Explicit
Public PageSum as Double
  4. Enter the following code in the event procedure for the Print property of the detail section where <report name> is the name of your report, and <field name> is the name of the field you want to sum:
    Private Sub Detail_Print(Cancel As Integer, FormatCount As Integer)
   PageSum  = PageSum + Reports![<report name>]![<field name>] 
End Sub
  5. Enter the following code in the event procedure for the Format property of the page header:
    Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
   ' reset the counter for each new page
   PageSum = 0 
End Sub
  6. Insert a text box control with the following properties in the page footer: 
       Name: txtPageTotal
   ControlSource: =[PageSum]
    Run the report and note that the text box displays the sum of the relevant field for each page. If you want to simulate a running sum for the report, delete the reset line from the page header Format event.

Properties

Article ID: 216311 - Last Review: October 11, 2006 - Revision: 1.3
APPLIES TO
  • Microsoft Access 2000 Standard Edition
Keywords: 
kbhowto kbprogramming KB216311
Back to the top | Give Feedback

Give Feedback

 
Back to the topBack to the top