閉じる

データがないとき印刷しない。レポートのsourceデータの有無をチェックする。


'

' レポートを実行する前に、レポートのソースとなるテーブルやクエリーの

'　レコードレコード件数を調べ、データがない場合は

'　メッセージを出力する

'

'　

　IF　Nz(Dcount([項目名],"テーブル名（クエリー名)､出力条件）)　= 0 then

　　　　Msgbox("データがありません。")

　　　　Exit　Sub

　Endif