【MS Access2000 VBA ですが】 レポートの詳細セクションで、最終レコードである事を知る方法

MicroSoft Access2000 VBAでアプリケーションを作成しています。

あるテーブルをレコードソースとしてレポートを出力しています。
「詳細セクション」で、現在印刷するレコードが最終レコードである事を知る方法を調べています。
ご存知の方いらっしゃいましたらよろしくお願い致します。

No.1 ベストアンサー 回答者： maruru01 回答日時： 2002/10/16 17:26

こんにちは。

maruru01です。

あらかじめ、レポートソースのレコード数を取得しておいて、詳細セクションのFormatイベントで、カウンタ変数をインクリメントしていき、レコード数と比較すればいいのではないでしょうか。
データ数は、DCount関数で取得出来ます。


（レポートの宣言部）
Private DataCount As Long　'データ総数
Private Counter As Long　'カウンタ

（Report_Openイベント）
DataCount = DCount("フィールド名", "テーブル名" ,抽出条件)
Counter = 0

（詳細_Formatイベント）
Counter = Counter + 1
If Counter = DCount Then
　　MsgBox "最終データ"
End If

この回答へのお礼

回答有り難うございました。

DCount関数は知りませんでした。

助かりました。

また何か有りましたらよろしくお願い致します。

お礼日時：2002/10/16 18:40