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

  • Thread starter Thread starter Popparod
  • Start date Start date
P

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 sum:overall

-----------------
....PAGEFOOTER...
....(unbound text box)
Name:pagesum
ControlSourse:{Blank}
Format:{Currency}
RunningSum:no
 
.....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....
 
Back
Top