Access 更新キャンセルするには?
Access2000で作成しています。
フォーム上でデータを書き換え後、更新をしない場合はどうしたらよいのでしょうか?
【希望する流れ】
1.データを変更
2.「更新」ボタンクリック
「データの更新をします。よろしいですか?」のメッセージ
(1)更新する場合:データを更新
「データが更新されました」のメッセージ
(2)更新しない場合:データを変更前に戻す
「データの更新がキャンセルされました」のメッセージ
3.フォームを閉じる
4.別のフォームを開く
この動作をフォーム上にある「更新」ボタンのクリック時イベントにすることはできますか?
とりあえず、現在は以下のようなものが作ってあります。
「VBA」
Private Sub Form_BeforeUpdate(Cancel As Integer)
'更新前確認
If MsgBox("更新します。よろしいですか?", vbYesNo, "更新確認") = vbNo Then
Cancel = True
Me.Undo
End If
End Sub
「更新」ボタンクリック時(こちらはマクロです)
・フォームを閉じる
・別のフォームを開く
今の状況では、更新する場合は問題ないのですが、更新しない場合、
「このレコードを保存することができません。
レコードを保存する時にエラーが発生しました。
・・・・・・・・・・・」
というメッセージが出てきてしまいます。
どのようにVBAを作ればよいでしょうか?
説明不足の場合、補足いたします。よろしくお願いします。
お礼
早速ありがとうございます。 プロシージャではなく、マクロを使った場合はどうなりますか? よろしくお願いします。