Access2003 レポートの合計の出し方
お世話になっております。
Access2003のレポートで下記のようなコードで価格の合計を求めようとしています。
1ページですとこれで合計は表示されるのですが、レポートが2ページ以降になると最終ページの合計が表示されます。
最終ページの最後にすべての合計を出したいと思っています。
ご教授いただければ幸いです。よろしくお願いいたします。
Option Compare Database
Dim a As Variant
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
a = 0
End Sub
Private Sub グループヘッダー3_Print(Cancel As Integer, PrintCount As Integer)
a = a + Me.価格
End Sub
Private Sub レポートフッター_Print(Cancel As Integer, PrintCount As Integer)
Me.合計 = a
End Sub
