即効テクニック |
●概要● 構文 expression.SetWarnings(WarningsOn) 設定項目 内容
expression | DoCmdオブジェクト[省略不可] |
WarningsOn | メッセージのオン/オフを指定[省略可能] |
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