閉じる

データがないとき印刷しない（NoDataイベント）


Private Sub Report_NoData(Cancel As Integer)

On Error GoTo Err_コマンド

    ' メッセージの設定をなしにする

    DoCmd.SetWarnings False

    

    MsgBox "該当データがありません。"

    

    Cancel = True



Exit_コマンド:

    Exit Sub



Err_コマンド:

    'MsgBox Err.Description

    Resume Exit_コマンド



End Sub