HOME > 即効テクニック > AccessVBA > フォーム・レポート > データが無い時はレポートを表示または印刷しない

即効テクニック

フォーム・レポート

データが無い時はレポートを表示または印刷しない

(Access 97)
レポートのレコードソースにデータが1件も無い場合、表示または印刷を行わないようにするには、イベント「NoData」を利用します。
レポートのプロパティシートを表示すると、[イベント]タブに[空データ時]があります。
そのイベントに次のようなイベントプロシージャを作成すると、レポートを表示または印刷する際にデータが1件も無かったら、メッセージボックスが表示され、表示または印刷がキャンセルされます。

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "データがありません。"
    Cancel = True
End Sub