![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.3ベストアンサー
- 回答日時:
No1、No2です。
もし、Undoを使用するならば
フォームの左側に鉛筆マークが
ある間はUndoが使用できます。
たとえば、
If Me.Dirty Then
Me.Undo
End If
これでデータが削除されます。
あるいは、以下にも記述があります。
http://www.accessclub.jp/bbs/0012/beginers5126.h …
No.4
- 回答日時:
Private 削除ボタン_click()
Me.undo
exit sub
で入力前の状態に戻るはずですけどねぇ?
Me.Undo の前に、Me.Recalc とか Me.Requery って入れてませんよね?
クリックする前にはレコードセレクタが編集中のアイコン(鉛筆マーク)になってますよね?
帳票フォームの場合に削除ボタンを詳細セクションに置いてあって
そのレコードのボタンではなく前後のボタンを押しているとか?
レコードが移動すればその編集中のレコードは確定されます。
Undo で戻せるのは編集中の場合だけです。
キーボードのESCキーを押した場合と一緒です。確定したものを元には戻せません。
Private 削除ボタン_click()
If Me.Dirty Then
Me.undo
Else
Msgbox "編集中ではありません"
End If
exit sub
コードの内容をこんな風に差し替えてみたら・・
それでもダメならもっと詳~~細な説明が必要ですね。
No.1
- 回答日時:
フォームのレコードソースにたとえば
ID(オートナンバー 主キー)
名前(テキスト型)
住所(テキスト型)
年令(数値型)
があるとします。
Private Sub 削除コマンド_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
'(1)ここから
'rs.Bookmark = Me.Bookmark
'rs.Delete
'(1)ここまで
'(2)ここから
rs.Edit
rs!名前 = Null
rs!住所 = Null
rs!年令 = Null
rs.Update
'(2)ここまで
End Sub
(1)の場合はすべてのレコードを削除します。
ただし、主キーがオートナンバーなどの場合は
欠番が生じます。
(2)の場合は(1)の場合と違って主キーの
オートナンバーを温存してその他のデータを
削除します。
お好きな方法で。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Chrome(クローム) 入力フォームの履歴を消したい 2 2023/06/29 13:02
- Access(アクセス) Access の SetFocus について教えてください 5 2022/08/04 07:32
- Access(アクセス) テキストボックスの値をテーブルに入力したい 2 2022/06/28 12:08
- PHP php 確認表示画面で値をSESSIONから取り出す理由の解釈は正しいでしょうか? 1 2023/06/09 17:39
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Accessで、フォームに情報を入力途中で、やめる(レコードに保存しない)ということは出来ますか?
Access(アクセス)
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
6
新規レコード行を非表示にしたい
Access(アクセス)
-
7
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
8
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
9
ACCESS VBA メインフォーム及びサブフォームのフィルタのクリア
Access(アクセス)
-
10
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
11
フォームからのレコード削除について
その他(データベース)
-
12
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
13
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
14
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
15
どこにもフォーカスを当てたくない
Access(アクセス)
-
16
Access2010、値を入力したら自動保存の方法
Access(アクセス)
-
17
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
18
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
19
Access 更新キャンセルするには?
Access(アクセス)
-
20
アクセスのテキストボックスの初期値を空白に
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
選択したチェックボックスのみ...
-
ACCESSのフォームからデータの...
-
accessの自動更新処理をできな...
-
Access 別フォームへの再クエ...
-
Accessのフォーム上にレコード...
-
ACCESSで、フォームのレコード...
-
アクセスでテーブルの変更内容...
-
アクセスのフォームのビューが...
-
ACCESSの表形式で、レコードを...
-
帳票フォームに全レコードを表...
-
ADOでRecordsetオブジェクトを...
-
「メソッドまたはデータメンバ...
-
アクセスVBA TOP値を変数
-
Accessフォームのテキストボッ...
-
アクセスのチェックボックス
-
Accessのハイパーリンクのパス...
-
Accessのフォームで作業領域を...
-
テキストボックス(アクセス)内...
-
入力途中の入力した値をすべて...
-
アクセス 0以外をカウントす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフォーム上にレコード...
-
ACCESSのフォームからデータの...
-
アクセスのフォームのビューが...
-
選択したチェックボックスのみ...
-
アクセスでテーブルの変更内容...
-
accessの自動更新処理をできな...
-
Access 別フォームへの再クエ...
-
アクセスでの項目追加について...
-
Accessフォームのテキストボッ...
-
ACCESSで入力フォームをHTMLフ...
-
Access2002 フォームを閉じるた...
-
Access フォーム上でコンボボッ...
-
「メソッドまたはデータメンバ...
-
ADOでRecordsetオブジェクトを...
-
テキストボックス(アクセス)内...
-
Accessのフォームで作業領域を...
-
Accessのフォームに表示...
-
アクセス 0以外をカウントす...
-
テキストボックスの値をテーブ...
-
ACCESSで、フォームのレコード...
おすすめ情報