HOME > 即効テクニック > AccessVBA > エラー処理・入力チェック > システムメッセージによってコードの実行が停止しないようにする

即効テクニック

エラー処理・入力チェック

システムメッセージによってコードの実行が停止しないようにする

(Access 2000/2002/2003)
●概要●
構文  expression.SetWarnings(WarningsOn)

設定項目        内容
expressionDoCmdオブジェクト[省略不可]
WarningsOnメッセージのオン/オフを指定[省略可能]
SetWarningsメソッドの引数に、TrueまたはFalseを指定することで、システムメッセージのオン/オフを切り替えます。たとえば、アクションクエリを実行すると、Accessからの警告メッセージダイアログが表示され処理が中断しますが、警告を確認する必要のない場合や、中断せずに繰り返して実行したいときには、引数にFalseを指定します。すると、警告メッセージダイアログをスキップすることができます。 引数に一度Falseを指定すると、Accessが終了するまで解除されません。必要な処理が終了したら、Trueに戻す処理を忘れないようにしてください。 Accessが起動した時点では、引数はTrueになっています。
●サンプル●
Sub SetWarningsOffSample()
    'システムメッセージをオフにする
    DoCmd.SetWarnings False
    '[「total_price1万円以上」テーブル作成]クエリを開く
    DoCmd.OpenQuery "「total_price1万円以上」テーブル作成"
     'システムメッセージをオンに戻す
    DoCmd.SetWarnings True
End Sub
●補足●
SetWarningsメソッドを使用しない場合、次のように警告メッセージダイアログが表示されます。
Sub SetWarningsOnSample()
    'システムメッセージをオフにしていないため、
     システムメッセージが表示されます
    '[「total_price1万円以上」テーブル作成]クエリを開く
    DoCmd.OpenQuery "「total_price1万円以上」テーブル作成"
End Sub