入力途中で入力して値をすべて削除する方法

フォームの入力値をクリア フォーム上にいくつかのテキストボックス、コンボボックスを配して入力してます。
入力途中に入力した値をすべて(削除)にして再入力したい。

現状、削除コマンドのクリック時に

Me.Undo 又は Me.コントロール名Undo

として試していますが、クリアされずフォームを閉じてテーブルを確認すると入力
した値がテーブルに追加されてしまいます
教えてください

No.1 ベストアンサー 回答者： piroin654 回答日時： 2011/09/15 18:02

以下のような方法で。

削除コマンドのクリック時に


Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
rs.Delete
rs.Close: Set rs = Nothing


とします。
DAOを使っているので
Microsoft DAO xx Object Library
にチェックが入っているか参照設定で
確認してください。

なお、主キーなどにオートナンバー
を使っていると削除したレコードの
番号が欠番となります。

この回答へのお礼

回答ありがとうございました

お礼日時：2011/09/15 20:07