![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になります。基本的なことかもしれませんがAccess初心者でよくわからないので
教えて下さい。
Access2010でテーブルからレコードを読み出すフォームを作成し、そのレコードを削除するため、
フォーム上に削除ボタンを設定しました。
削除ボタンをクリックすると小さなウインドウが開き下記のようなメッセージが表示されます。
1件のレコードを削除します。
「はい」をクリックすると、削除したレコードを元に戻すことはできません
「はい(Y)] 「いいえ(N)]
メッセージのウインドウの下には読みだしたレコードのフォームが表示されていますが、
キーとなる顧客コード(数字6桁)の欄には #エラー と表示され、その他の項目はすべて
ブランクになります。
「はい」をクリックするとレコードは削除されるので処理的には問題ないのですが、
削除する前に確認するためフォーム上の項目を表示したまま残したいです。
どのようにすればよいでしょうか?
削除ボタンのクリック時の埋め込みマクロの内容は以下のように設定しています。
エラー時
移動先 次
マクロ名
コントロールの移動
コントロール名 = [Screen].[PreviousControl].[Name]
マクロエラーのクリア
If not [Form].[Newrecord] Then
メニューコマンドの実行
コマンド レコードの削除
If文の最後
If [Form].[Newrecord] And Not [Form].[Dirty] Then
警告文
If文の最後
If [Form].[Newrecord] And [Form].[Dirty] Then
メニューコマンドの実行
コマンド レコードを元に戻す
If文の最後
If [MacroError] <> 0 Then
メッセージボックス
メッセージ = [MacroError].[Description]
警告音 はい
メッセージの種類 なし
メッセージのタイトル
If文の最後
ウインドウを閉じる
オブジェクトを閉じる
オブジェクトの種類
オブジェクト名
オブジェクトの保存 確認
参考にしたAccessのプログラムから削除ボタンをコピーしたため、これが適しているかどうか
わかりません。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
レコードの削除 実行前、削除の確認メッセージが出ないように設定します。
そのままでは、メッセージなしに削除されてしまいますので、自前で Msgbox関数で確認メッセージを出します。
下記の部分を、
If not [Form].[Newrecord] Then
メニューコマンドの実行
コマンド レコードの削除
If文の最後
下記のように変更してください。
If Not [Form].[NewRecord] And Eval("MsgBox('レコードを削除します。@「はい」をクリックすると、削除したレコードを元に戻すことはできません。@削除してもよろしいですか?',52)")=6 Then
メッセージの設定
メッセージの表示 いいえ
メニューコマンドの実行
コマンド レコードの削除
メッセージの設定
メッセージの表示 はい
If文の最後
「メッセージの設定」アクションを表示させるには、リボンの[マクロツール]-[デザイン]の「すべてのアクションを表示」を押し込んでおいてください。
![「Accessでのレコードの削除時の表示に」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/2/1336988_5497e1a06e2d5/M.jpg)
いつもありがとうございます。
おかげさまで解決しました。
まだまだ知らないことが多くお知恵を拝借したいことも多々あると思います。
またよろしくお願いします。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
-
4
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
5
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
6
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
7
レコード削除時に(サブ)フォームに表示される#Deleted"について"
Access(アクセス)
-
8
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
9
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
10
ACCESS DCOUNTの抽出条件について
Access(アクセス)
-
11
Accessで、フォームに情報を入力途中で、やめる(レコードに保存しない)ということは出来ますか?
Access(アクセス)
-
12
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
13
フォームからのレコード削除について
その他(データベース)
-
14
IIF関数の使い方
Visual Basic(VBA)
-
15
GoToRecordで実行時エラー '2105'
PowerPoint(パワーポイント)
-
16
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
17
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
18
「#エラー」の回避
Access(アクセス)
-
19
Accessの最大レコード数
Excel(エクセル)
-
20
Access「レコードが削除されました」のエラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2つの項目が重複するレコード...
-
数百万件レコードのdelete
-
非連結サブフォームのレコード...
-
Accessにインポートしたら並び...
-
Access 1レコードずつcsvで出力...
-
データの二重表示の原因
-
Accessで重複したデータを一件...
-
Accessの重複クエリで最小以外...
-
3つ以上のテーブルをUNIONする...
-
OUTER JOIN と TOP10との組み合...
-
レコードロックする方法
-
Accessでの排他制御
-
800万件のデータ
-
Access 削除クエリが重い
-
Accessでレコードが更新された...
-
SQLデータ修正時に『このレコー...
-
時系列データの抜けの調べ方
-
ManagementStudioからのデータ削除
-
SQLServerで同一条件レコードの...
-
ACCESSにて全項目(レポート)...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データの二重表示の原因
-
Accessにインポートしたら並び...
-
3つ以上のテーブルをUNIONする...
-
数百万件レコードのdelete
-
2つの項目が重複するレコード...
-
Access 1レコードずつcsvで出力...
-
Access VBA Me.Requery レコー...
-
ManagementStudioからのデータ削除
-
非連結サブフォームのレコード...
-
Accessで重複したデータを一件...
-
ACCESSのBookmarkプロパティの...
-
Access 削除クエリが重い
-
Accessでの禁止文字チェック
-
Access カレントレコードがあり...
-
SQLServerで同一条件レコードの...
-
Accessでの排他制御
-
ACCESS【更新クエリの中断がで...
-
SQLデータ修正時に『このレコー...
-
(ACCESS)並び替えをしないで...
-
ACCESSファイルを開こうとする...
おすすめ情報