ページフッターの集計でご指南ください

質問

環境　OS/XP ACCESS/2000

複数のページを印刷するとき１ページ目の合計はページフッターの集計２ページもページフッターの集計最終ページには１ページから最終ページまでの合計の集計をページフッターに表示させたいのですが　どの様にすれば良いのでしょうか

ご指南ください

回答No.5

hatena1989

> ページフッターセクション_FormatでRunSumフイールドが見つかりません
> というエラーが出ます

ANo.1で回答した下記の設定は間違いなくしていますか。
> また、詳細セクションにテキストボックスを配置して、下記のように設定します。
> コントロールソース　金額
> 集計実行　全体
> 可視　いいえ
> 名前　RunSum

ANo.4の方のアドバイスの「おまじない」もお忘れなく。

補足

ありがとう御座います

なぜなんでしょう
全部確認しましたが　
RunSumフイールドが見つかりません
というエラーが出ます
困っています　なぜなんでしょう

回答No.4

m3_maki

> テキストBOX PageSumに何も表示しないです
> エラーも無いです

おまじないが必要です。

ページフッターにテキストボックスを配置し
　可視：　いいえ
　コントロールソース：　=[Page] & "/" & [Pages] & " ページ"
としてください。

補足

ありがとう御座います
ページフッターセクション_FormatでRunSumフイールドが見つかりません
というエラーが出ます

ご指南ください

回答No.3

hatena1989

> If Me.Page=Me.Pages Then
> の意味をご指南いただけませんでしょうか

Pageは現在のページ、Pages は総ページ数。

Page=Pages ということは、現在のページ=は総ページ、つまり、現在、最終ページということです。

回答No.2

hatena1989

> テキストBOX PageSumに何も表示しないです
> エラーも無いです

回答通りに間違いなく設定すれば、できるはずです。

テキストボックスの設定に間違いはないですか。

ページフッターの「フォーマット時」プロパティには、[イベント プロシージャ] と表示されてますか。そこで、ビルドボタンをクリックすると、

Private Sub ページフッターセクション_Format(・・・

のVBA画面で表示されますか。

レポートヘッダーの「フォーマット時」も同様になりますか。

下記のページの応用ですので、そちらも参照ください。

[ACC2002] レポートでページ別に数値型の列を集計する方法
http://support.microsoft.com/kb/296249/ja

参考URL：

http://support.microsoft.com/kb/296249/ja

補足

ご指南ありがとう御座います
恐れ入りますが
If Me.Page=Me.Pages Then
の意味をご指南いただけませんでしょうか

回答No.1

hatena1989

ページフッターにテキストボックスを配置して、名前を、PageSum とします。

また、詳細セクションにテキストボックスを配置して、下記のように設定します。
コントロールソース 金額
集計実行 全体
可視 いいえ
名前 RunSum

集計するフィールド名は、金額 と仮定します。（実際のフィールド名に変更してください。）

レポートのモジュールを下記のように記述します。イベントプロシージャは関連付けるようにしてください。

Option Compare Database
Option Explicit
Dim x As Currency

Private Sub ページフッターセクション_Format(Cancel As Integer, FormatCount As Integer)
　　If Me.Page=Me.Pages Then
　　　　Me.PageSum = Me!RunSum
　　Else
　　　　Me.PageSum = Me!RunSum - x
　　　　x = Me!RunSum
　　End If
End Sub

Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
　　x = 0
End Sub

以上です。

補足

この度はありがとう御座います
早速試しましたが
テキストBOX PageSumに何も表示しないです
エラーも無いです

ご指南お願いいたします