....Hey Duane.....!

[Popparod]

The Ol' Running sum per column thingy.......


......I figured I'd let you know I got it working with this.....
......if I go from page 1...then right to page 6...it'll give me the
totals right away.....

....Ya gotta Love the Learning Process......!
and Tylenols.....



---------
(General)
---------
Option Compare Database
Option Explicit

Dim x As Double
----------------


----------------
PageFooter {Print}
----------------
Private Sub PageFooter_Print(Cancel As Integer,
PrintCount As Integer)

pagesum = RunSum - x
x = RunSum

End Sub





------------------------
....IN THE REPORT......
-------------------------
......DETAIL....

TextBox:RunSum

RunSum
General Number
visible:no
running sumverall

-----------------
....PAGEFOOTER...
....(unbound text box)
Nameagesum
ControlSourse:{Blank}
Format:{Currency}
RunningSum:no

 

[Duane Hookom]

Cool, thanks for sharing.

 

[Popparod]

.....No Problem.....!

.....You guy's have helped me more than I could ever
expect from anybody.......

......just reading the threads I learn alot........

......Have yourself a wonderful day....