VBAを使ったレポートの最終ページを表示するとき内容が不正になってしまうときの対処方法

解説

VBAを使用し総合計やページ合計などを集計している場合で、レポート左下にある最終ページの表示ボタンを押したとき内容が倍になってしまったりすることがあります。
これは、最終ページを表示するときに発生するフォーマット時イベントなどが２度発生してしまうことで起こる現象です。
２度発生しないようにすることは出来ないので、２度目のイベントを無視するようにします。

手順

1. レポートのクラスモジュールの宣言セクションに現在のページを保存するための変数を定義します。
2. 詳細セクションのフォーマット時イベントで現在のページと保存している変数の値を比較し、異なっている場合は通常の処理をするようにします。
3. 詳細セクションのフォーマット時イベントで現在のページを保存するようにします。

その他

AccessのVBAの知識が必要です。