ACCESSのフォーム

質問

ACCESSのフォームでデータを入力しています。

既に入力したデータを誤って上書きしないように、更新前処理で下記のコードを入れました。
Private Sub 単価_BeforeUpdate(Cancel As Integer)
If MsgBox("変更を保存しますか？", vbYesNo) = vbNo Then
Me.Undo
End If
End Sub

入力済のデータを上書きする時はこの方法で良いのですが、新規に入力する時にも同じように確認メッセージが出てしまいます。
新規入力の時には確認メッセージを出さない方法があったら教えて下さい。
よろしくお願いします。

回答No.2

nicotinism · ベストアンサー

フォームの NewRecord プロパティで分岐してください。

If Me.NewRecord = False Then
If MsgBox("変更を保存しますか？", vbYesNo) = vbNo Then
Me.Undo
End If
End If

蛇足ですが、Me.Undo の場合はそのカレントレコード全体がリセットされます。
Me!単価.Undo の方が良いかもしれないが、そこはそちらの都合の良いように。

お礼

ご指摘ありがとうございます。
Me!単価.Undo の方が良いと思います。

回答No.1

007MUKADE

変更・訂正・編集用ホームと　新規登録専用ホームを　同じデザインで　２面使えば回避出来ます。閲覧のみのホームも造って置けば不用意な改ざんにも適応できます。

お礼

やっぱりその方法しかないんですね・・・
ありがとうございました。