Guest_imported
New member
- Jan 1, 1970
- 0
What does Me. mean here:
Dim dPageTotal As Double
Option Compare Database
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
dPageTotal = dPageTotal + Me.Amount
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Me.AmtTot = dPageTotal
dPageTotal = 0
End Sub
I inserted that code into my report and it did not work. It is supposed to sum up an amount per page in the page footer. I got it off this site, it's someone elses code.
Anyway, I was wondering if there was anyway to sum up report totals in the page footer section.
Also, I was wondering how I could add a prompt that appears after pressing the print button that will ask for the user's name and put that at the bottom of the report.
Thanks.
Dim dPageTotal As Double
Option Compare Database
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
dPageTotal = dPageTotal + Me.Amount
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Me.AmtTot = dPageTotal
dPageTotal = 0
End Sub
I inserted that code into my report and it did not work. It is supposed to sum up an amount per page in the page footer. I got it off this site, it's someone elses code.
Anyway, I was wondering if there was anyway to sum up report totals in the page footer section.
Also, I was wondering how I could add a prompt that appears after pressing the print button that will ask for the user's name and put that at the bottom of the report.
Thanks.