Accessレコードの削除（VBA）

Accessで入力フォームを使用して入力をしていますが、
全項目の入力がされていない場合そのレコードを削除したいのです。
閉じるときに消そうと思い
DoCmd.RunCommand acCmdDeleteRecord
を入れてみたのですが、レコードの削除はできません、とメッセージが出てしまい消せません。
次のレコードを選択すれば消せるかと思い
DoCmd.GoToRecord , , acNewRec
を足してみたりしてみたのですが、やっぱりダメでした。

この場合はどのようにすればいいのでしょうか？

No.1 ベストアンサー 回答者： Gin_F 回答日時： 2004/10/08 13:31

フォームのレコード更新前イベントを使ってください。

If IsNull(Me!コントロール名1) Or IsNull(Me!コントロール名2) Then
　　MsgBox "入力をキャンセルします。"
　　Me.Undo
End If

のように。

この回答への補足

すいません、更新前でしたね。
無事出来ました。
ありがとうございました。

補足日時：2004/10/08 13:37

この回答へのお礼

回答ありがとうございます。
これは、閉じるときのイベントでいいんですよね？
me.undo
入れてみたんですが、テーブルを見るとしっかりデータが入ってました。

お礼日時：2004/10/08 13:35

No.2 回答者： chairwarmer 回答日時： 2004/10/08 13:31

入力フォームでのレコード入力中は

まだそのレコードが確定したわけではありませんので

Me.Undo

でレコードに対する変更をキャンセルできますよ。

この回答へのお礼

回答ありがとうございます。
これは、閉じるときのイベントでいいんですよね？
me.undo
入れてみたんですが、テーブルを見るとしっかりデータが入ってました。

お礼日時：2004/10/08 13:35