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

質問

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

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

回答No.1

maruru01 · ベストアンサー

こんにちは。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関数は知りませんでした。

助かりました。

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