こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

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

投稿日時 - 2011-09-15 15:56:14

QNo.7012785

すぐに回答ほしいです

質問者が選んだベストアンサー

以下のような方法で。

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


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 18:02:25

お礼

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

投稿日時 - 2011-09-15 20:07:12

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問