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