#019
レポートの[レコードソース]プロパティに指定されているテーブルやクエリー、あるいはレポートを開く際のWHERE条件によって抽出された印刷データが一件もないときに、印刷(プレビュー)操作をキャンセルする方法をご紹介します。
データがないときにどのようなアクションをとるかは、レポートの[空データ時]イベントプロシージャに記述します。レポートのプロパティウィンドウから[空データ時]を選択、コードビルダによってイベントプロシージャを生成します。そしてそこに次のようなコードを記述します。
Private Sub Report_NoData(Cancel As Integer)
Beep
MsgBox "データが一件もないので印刷を中止します！"
Cancel = True
End Sub
なお、このイベントはレポートがテーブルやクエリーに連結されていないと発生しません。またサブレポートでは発生しません。Beep
MsgBox "データが一件もないので印刷を中止します！"
Cancel = True
End Sub
