Accessで、フォームに情報を入力途中で、やめる（レコードに保存しない）ということは出来ますか？

画像のようなフォームがあり、それぞれのボタンには、以下のようなVBAの記述をしています。

＜閉じる＞
Private Sub コマンド17_Click()
DoCmd.Close acForm, "テーブル1", acSaveNo
End Sub

＜保存＞
Private Sub コマンド18_Click()
DoCmd.GoToRecord acDataForm, "テーブル1", acNewRec
End Sub

フォームに情報を入力途中で、何かしらの理由でやめた場合（閉じる）を押しても、
テーブルには、入力途中の情報が保存されます。
（入力した情報を全部削除して、「閉じる」押しても、空のレコードがテーブルに保存されます）

「閉じる」を押した際、何もレコードに保存されない（新規レコードが作成されない）方法は何かありませんか？

No.2 ベストアンサー 回答者： bonaron 回答日時： 2020/12/14 16:56

Private Sub コマンド17_Click()

　If Me.Dirty Then
　　Me.Undo
　End If
　DoCmd.Close acForm, "テーブル1", acSaveNo
End Sub

これでどうかな？

この回答へのお礼

情報をありがとうございました。
解決致しました。

お礼日時：2020/12/15 10:09

No.1 回答者： hakobulu 回答日時： 2020/12/14 16:38

まったく忘れているので確信はありませんが、 roll back コマンドを調べてみて。

この回答へのお礼

情報をありがとうございました。

お礼日時：2020/12/15 10:09