Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

376 / 9994

←次へ　｜　前へ→


	【12931】ページフッターの合計

maiu - 16/2/3(水) 17:02 -


	引用なし

	パスワード

いつも参考にさせてもらってます。

Access2003レポートで仕入れ等の計算を行っており

レポート部分--------------------------------------------------------
ページフッター
　[取引先]　[仕入額]　 [税]　　　[合計]
詳細
　[GYOSYA]　[SIREGAKU]　[ZEI]　　[GOKEI]
　Ａ社　　　\1,000　　 \80　　　 \1,080　[=funcKEISAN](背景色:白)
　Ｂ社　　　\2,000　　 \160　　　\2,160　[=funcKEISAN](背景色:白)
　Ｃ社　　　\3,000　　 \240　　　\3,240　[=funcKEISAN](背景色:白)
　・
　・
ページフッター
　　　　　　[仕入計]　 [税計]　　[合計計]
　　　　　　(非連結)　(非連結)　 (非連結)

---------------------------------------------------------------------
このようにレポートを作っており
ＶＢＡで
VBA部分--------------------------------------------------------------
Dim SIRE As Long,ZEI As Long,GOKEI As Long
Function funcKEISAN()
　　SIRE = SIRE + Me.SIRE
　　ZEI = ZEI + Me.ZEI
　　GOKEI = GOKEI + Me.GOKEI
End Function

Private Sub ページフッターセクション
　　Me.仕入計 = SIRE
　　Me.税計 = ZEI
　　Me.合計計 = GOKEI
End Sub
---------------------------------------------------------------------

このようにしてページフッター毎に数値が加算される仕組みなのですが
例えばこれが10ページまであるとして
10ページ目だけを印刷した場合に10ページの部分のみの数値が計算されてしまいます。
当然ですが・・・
ページ指定した時でもそのページまでの分は計算される方法というのはあるでしょうか？
VBAの詳細セクションに単純にSIRE = SIRE + Me.SIRE を記述するとレポートの見た目的には
表示されてない次のレコードの分までの加算されており、数値がおかしくなってしまいます。
レポートに表示されてない分までVBA上で計算してしまうのは仕様ということをお聞きしました。

どうかよろしくお願い致します。

136 hits

▼

【12931】ページフッターの合計 maiu 16/2/3(水) 17:02