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

質問

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

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

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

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

回答No.1

piroin654 · ベストアンサー

以下のような方法で。

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

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
にチェックが入っているか参照設定で
確認してください。

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

お礼

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