いつもお世話になります。基本的なことかもしれませんが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文の最後
「メッセージの設定」アクションを表示させるには、リボンの[マクロツール]-[デザイン]の「すべてのアクションを表示」を押し込んでおいてください。
いつもありがとうございます。
おかげさまで解決しました。
まだまだ知らないことが多くお知恵を拝借したいことも多々あると思います。
またよろしくお願いします。
ありがとうございました。
お探しの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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
5
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
6
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
7
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
「#エラー」の回避
Access(アクセス)
-
10
ACCESS DCOUNTの抽出条件について
Access(アクセス)
-
11
フォームからのレコード削除について
その他(データベース)
-
12
GoToRecordで実行時エラー '2105'
PowerPoint(パワーポイント)
-
13
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
14
レコード削除時に(サブ)フォームに表示される#Deleted"について"
Access(アクセス)
-
15
Accessの最大レコード数
Excel(エクセル)
-
16
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
17
Accessで値がnullの場合は計算せずにnullをかえす方法
Access(アクセス)
-
18
【アクセス】複数の条件のDSumを記述したい
Excel(エクセル)
-
19
ACCESS リストボックスの字の色を変えたい
その他(データベース)
-
20
Access マクロビルダーで使うIF文について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数百万件レコードのdelete
-
データの二重表示の原因
-
Access 削除クエリが重い
-
3つ以上のテーブルをUNIONする...
-
非連結サブフォームのレコード...
-
レコードロックする方法
-
Accessにインポートしたら並び...
-
ACCESSファイルを開こうとする...
-
Accessでレコードが更新された...
-
ManagementStudioからのデータ削除
-
DB2のデーターベースに、ADOで...
-
Access カレントレコードがあり...
-
ACCESS【更新クエリの中断がで...
-
Access 1レコードずつcsvで出力...
-
2つの項目が重複するレコード...
-
無償版SQLサーバ 中国語(簡体...
-
access ADODB でテーブルを更新...
-
AccessのSQLについて教えてくだ...
-
SQLServerで同一条件レコードの...
-
ACCESSのBookmarkプロパティの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
3つ以上のテーブルをUNIONする...
-
2つの項目が重複するレコード...
-
数百万件レコードのdelete
-
Accessにインポートしたら並び...
-
データの二重表示の原因
-
Access VBA Me.Requery レコー...
-
ACCESSのBookmarkプロパティの...
-
Access 1レコードずつcsvで出力...
-
Access 削除クエリが重い
-
ManagementStudioからのデータ削除
-
SQLServerで同一条件レコードの...
-
非連結サブフォームのレコード...
-
Accessでレコードが更新された...
-
Accessでの排他制御
-
(ACCESS)並び替えをしないで...
-
Accessで重複したデータを一件...
-
Accessでの禁止文字チェック
-
Access カレントレコードがあり...
-
ACCESSファイルを開こうとする...
-
ACCESS【更新クエリの中断がで...
おすすめ情報