| |
▼わん さん、Gin_IIさん
こんにちは。
>これを回避する方法はないのでしょうか？
表示されるメッセージは
「ｘ件のレコードを追加します」
「ｘ件のレコードが指定されたテーブルから削除されます」
というもので大丈夫でしょうか。
まずこれらを表示する設定は、Accessの [ツール] → [オプション] → [編集/検索タブ] にある
・確認、アクション クエリ
・確認、オブジェクトの削除
にて変更が可能です。
MDB の設定として別に必要がないのでしたらチェックボックスを外す事で対応が可能です。
この設定を VBA から行うには SetOption メソッドで切り替えることができます。
また、Gin_II さんからご提示があった
SetWarnings メソッドでシステムメッセージ自体を表示させない方法や
Executeメソッドを使う方法でもダイアログの回避はできます。
ダイアログ表示をし、キャンセルも選択したい場合は
エラートラップで対応するしかないでしょうかね。
On Error Resume Next
DoCmd.RunSQL SQLCode
If Err.Number = 2501 Then
MsgBox "キャンセル"
End If
色々方法はあると思いますが、わん さんの状況に合わせて使い分けてみてください。
|
|
小僧
- 06/1/17(火) 16:53 -
