Accessのレポートでデータがない場合印刷を中止する方法

Accessのレポートはデータがなくても、タイトルがあるページヘッダーや項目名があるページヘッダーなどが印刷されてしまいます。

次にレコードがない場合にするため、人口が1000人以下の都道府県で抽出します。


レポートビューを実行すると、下のようにレコードがないので項目名とフィールドの枠が印刷されました。
これでは印刷が無駄なのと、何回も繰り返しパラメータを変更しテストするようなことが大変になります。

■データがない場合、印刷を中止させる

レポート デザインビューでプロパティシートを開きます。
イベントタブの「空データ時」で［イベントプロシージャ］を選択します。


Report_NoDataが開くので、メッセージとキャンセルするVBAを入力します。


・Report_NoDataの引数のCancelをTrueにすることで印刷を中止できます。

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

実行すると「データがありません！」とメッセージが表示され、印刷はされません。