OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

Accessデータ入力について

  • 困ってます
  • 質問No.222279
  • 閲覧数91
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 65% (86/132)

Access2000です。
フォームにてデータ入力をしており、以下の処理をしたいと思っています。
****
1レコードの入力が終わってENTERで格納する前にメッセージを表示する。
メッセージのOKを選択するとレコードがテーブルに格納される。
キャンセル等を選択するとそのレコードはテーブルに格納せず削除される。
マクロでやってみたのですが、初心者なのでよくわかりませんでした。
力を貸してくださいませんか。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル12

ベストアンサー率 63% (325/508)

kalmitさんがどのくらいのスキルをお持ちなのかわかりませんので、できるだけ詳しく説明します。(もし、お節介なところがありましたら、読み飛ばしてください。)

まず、フォームのプロパティシートのイベントタブを開き、「更新前処理」欄の右側をクリックして、VBAのモジュールウィンドウを開いてください。

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("データを格納しますか?", vbOKCancel) = vbCancel Then
Me.Undo
End If
End Sub
のように、記述してください。(コピーして貼り付けてもOKです。)

以下、解説です。
「更新前処理/BeforeUpdate」イベント:
フォームのそのレコードのデータが、更新される直前に発生するイベント。
If MsgBox("~・・・
メッセージボックスを開き、もし、Cancelぼたんが押されたら次の行を実行、そうでなければ(OKボタンが押されたら)End If までへ移動。
Me.Undo
フォームのレコードの変更をクリアする。

BeforeUpdateイベント、MsgBox関数、Undoメソッド をヘルプで確認してください。

疑問、その他なにかありましたら、補足でご連絡ください。
(土日は不在ですので、補足追加が必要な場合は25日以降になります。ご容赦ください。)
お礼コメント
kalmit

お礼率 65% (86/132)

ありがとうございます。うまくいきました。
初心者レベルなのでヘルプも見て勉強しました。
わかりやすく書いていただいて助かりました。

お礼が遅くなったことをおわびします。
投稿日時 - 2002-02-27 16:19:57
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ