画像のようなフォームがあり、それぞれのボタンには、以下のようなVBAの記述をしています。
<閉じる>
Private Sub コマンド17_Click()
DoCmd.Close acForm, "テーブル1", acSaveNo
End Sub
<保存>
Private Sub コマンド18_Click()
DoCmd.GoToRecord acDataForm, "テーブル1", acNewRec
End Sub
フォームに情報を入力途中で、何かしらの理由でやめた場合(閉じる)を押しても、
テーブルには、入力途中の情報が保存されます。
(入力した情報を全部削除して、「閉じる」押しても、空のレコードがテーブルに保存されます)
「閉じる」を押した際、何もレコードに保存されない(新規レコードが作成されない)方法は何かありませんか?
No.2ベストアンサー
- 回答日時:
Private Sub コマンド17_Click()
If Me.Dirty Then
Me.Undo
End If
DoCmd.Close acForm, "テーブル1", acSaveNo
End Sub
これでどうかな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) accessについて(超初心者です) 1 2023/02/11 11:18
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- PHP php 確認表示画面で値をSESSIONから取り出す理由の解釈は正しいでしょうか? 1 2023/06/09 17:39
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
Accessでレコードの保存をせずにフォームを閉じたい
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
ACCESSフォーム入力後の確定
Access(アクセス)
-
5
新規レコード行を非表示にしたい
Access(アクセス)
-
6
入力途中の入力した値をすべて削除する方法
その他(データベース)
-
7
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
8
アクセスVBAのMe!と[ ]
Access(アクセス)
-
9
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
10
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
11
どこにもフォーカスを当てたくない
Access(アクセス)
-
12
空白はダメというエラーの表示(アクセス)
その他(データベース)
-
13
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
14
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
15
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
16
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
17
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
18
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
19
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
20
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クエリの結果が文字化け(Access...
-
アクセスでの追加クエリでのエ...
-
ACCESSでテーブルにあるチェッ...
-
Accessのテーブルを開いたとき...
-
Accessのオートナンバーについて
-
ACCESS2000のレポートでデータ...
-
Accessでレポート内の繰り返し...
-
差込印刷での全角表示について...
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
アクセスのエラー「クエリには...
-
エクセルにおける「フィールド...
-
2つのテーブルに共通するレコ...
-
ACCESSのデータに自動で半角ス...
-
ACCESS 「パラメータの入力」...
-
access テーブル作成クエリでテ...
-
クエリ上でフィールド名が2つ...
-
デザインビューにてテーブルが...
-
フォーム データシートビューで...
-
アクセス:クエリの結合とリレ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSでテーブルにあるチェッ...
-
クエリの結果が文字化け(Access...
-
ACCESS2010 フィルタ後のエク...
-
Accessの最大レコード数
-
アクセスでの追加クエリでのエ...
-
Accessでレポート内の繰り返し...
-
Access 「主キーにはnull値を...
-
Accessで、フォームに情報を入...
-
ACCESSでのひとつ前レコードの...
-
アクセス レポートの行数を固...
-
Accessのオートナンバーについて
-
Accessのテーブルを開いたとき...
-
ACCESS2000 更新クエリで文字...
-
ACCESSでの関数について
-
フォーム内のデータをすべて更...
-
レコード件数が0件なら印刷を...
-
文字を含むIDの自動採番
-
mdbの破損「データベース形式・...
-
データシートビューをコピーす...
-
Accessの保存のタイミングについて
おすすめ情報