Subtotal by page- get a running total for each page, in the Page Footer

[Budatlitho]

Hello:

I want to take an existing report and add a running total by page. The field name is Amount, and in the report footer I have

=Sum([Amount])

I also need a total by page in the page footer. Is this possible? I tried to add

=Sum([Amount])

to the page footer, but that does not work.

Thanks.

[June7]

Review
https://www.access-programmers.co.uk...-footer.56654/
https://microsoft.public.access.repo...ti-page-report

For a page count or sum, here is example code behind my report:

Option Compare Database
Option Explicit

Public intPageCount As Integer
Public intPageTotal As Integer


Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    'increment counters for each record printed
    intPageCount = intPageCount + 1
    intPageTotal = intPageTotal + Nz(Me!Qty, 0)
End Sub


Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    'set textboxes in footer
    Me.tbxPageCount = intPageCount
    Me.tbxPageTotal = intPageTotal
    'reset counters
    intPageCount = 0
    intPageTotal = 0
End Sub

[Budatlitho]

I used the instructions in https://www.access-programmers.co.uk...-footer.56654/
Tried VB, but was unsuccessful getting it to work. The uk link shows how to accomplish this by adding two fields-- no VB
THANKS for the link!!!

[June7]

And to clarify (I should have in earlier post), for running total just:

Textbox in detail section with properties set to calc RunningSum OverAll on Amount field.

Textbox in Page footer that references the other textbox.