access 確認メッセージのはい/いいえの結果で分岐したい

クエリ実行時に表示されるメッセージがありますが、
（DoCmd.SetWarnings False　で非表示にできるメッセージ）
この「はい/いいえ」を利用して
if文のように分岐したいのですが、可能でしょうか？

よろしくお願いします。

No.3 回答者： venzou 回答日時： 2007/01/18 15:09

「いいえ」でキャンセルするとエラーになりますので、それをチェックすれば良いかと。

例：
Sub test()
　Dim SQL As String
　On Error GoTo Test_Error
　SQL = "SELECT * INTO 新しいテーブル名 FROM テーブル名;"
　DoCmd.RunSQL SQL
　'はいの場合の処理

Test_Next:
　Exit Sub

Test_Error:
　Debug.Print Err.Description
　Debug.Print Err.Number
　'いいえの場合の処理
　Resume Test_Next
End Sub

No.2 回答者： CHRONOS_0 回答日時： 2007/01/18 12:06

System Warningの戻り値を取得することはできないと思います

自作のメッセージボックスを作るしかないでしょう
メッセージが出る操作の前に自作ダイアログでやるかやらないかを確認しておき
警告を出さないようにして実行という手順かな

この回答へのお礼

ありがとうございます。

＞System Warningの戻り値を取得することはできないと思います

そうですか。
「○件追加しました。」というメッセージは、ユーザに分かり易いので
使いたいと思いうのですが、
”重複なし”設定のあるテーブルに、誤って重複したレコードを追加した場合のエラー表示は、ユーザに分りづらいので、
その手前で何か戻り値があればな…と考えた次第です。

お礼日時：2007/01/18 16:02

No.1 回答者： Dxak 回答日時： 2007/01/17 14:34

すみません、何を想定しているのか、よく判りません

> この「はい/いいえ」を利用して
> if文のように分岐したいのですが、可能でしょうか？

システムメッセージで「はい/いいえ」で既に分岐していると思うのですが、ＶＢＡで分岐し処理を変えるのであれば、システムメッセージの「はい/いいえ」は活用出来た記憶がないので、

' 処理が必要なレコードがあるか？レコード数の確認
If DCount(～) > 0 Then
' メッセージボックスの発生
If MsgBox(～, vbYesNo,～) = vbYes Then
' 「はい」の時の処理
Else
' 「いいえ」の時の処理
End If
End If

のような感じで分岐処理をかけていく方が、よろしいかと思います

この回答へのお礼

ありがとうございます。

＞システムメッセージの「はい/いいえ」は活用出来た記憶がない

そうですか。

自前でやってみます。

お礼日時：2007/01/18 16:12