アクセスでレコードの内容が変更されたかどうかを調べる方法とは？
- Win2000、Access2000を使用しています。以下の作業をするためのVBを作成しているのですが、レコードの内容が変更されたかどうかを調べるためのコードとその他のコードとの組み立てがわからず困っています。
- フォーム上に作成した「戻るボタン」をクリックした時のイベントで、レコードの内容が変更されていたらメッセージボックスを表示する。
- メッセージボックスの「はい」をクリックしたら、保存してフォームを閉じる。メッセージボックスの「いいえ」をクリックしたら、変更されたフィールドの値を変更前の状態に戻してフォームを閉じる。
- ベストアンサー
アクセスでレコードの内容が変更されたかどうかを調べるには
Win2000、Access2000を使用しています。 以下の作業をするためのVBを作成しているのですが、レコードの内容が変更されたかどうかを調べるためのコードとその他のコードとの組み立てがわからず困っています。 部分的にでもかまいませんので、おわかりになる方がいましたら教えてください。 １.フォーム上に作成した「戻るボタン」をクリックした時のイベントで、レコードの内容が変更されていたらメッセージボックスを表示する。 ２．メッセージボックスの「はい」をクリックしたら、保存してフォームを閉じる。 ３．メッセージボックスの「いいえ」をクリックしたら、変更されたフィールドの値を変更前の状態に戻してフォームを閉じる。 以上、よろしくお願いします。
- n-shan
- お礼率53% (44/82)
- オフィス系ソフト
- 回答数3
- ありがとう数5
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
ヒントだけ… フォーム上の連結コントロールの値が変更されたかどうかを知るのは <oldvalue>プロパティを使用します。 If Me!コントロール名.value <> Me!コントロール名.oldvalue then … と比較することで、変更されたかどうかを知ることが出来ます。 また Me!コントロール名.value = Me!コントロール名.oldvalue で、変更前の値に戻すこともできます。 詳細は参考URLやヘルプを参照して下さい。 では、頑張って下さい。
その他の回答 (2)
- sgh
- ベストアンサー率61% (75/121)
#2の方と似たような意見ですが、 非連結のチェックボックスを非表示で配置する。 全てのコントロールのAfterUpdateイベントでチェックボックスをTrueにするコードを挿入する。 フォームのBeforeUpdateイベントでチェックボックスがTrueの場合だけ動くコードを記述する。 フォームのAfterUpdateでチェックボックスをFalseにする。 この場合Undoされたときが問題になりそうです。 未実験です。
お礼
ご回答ありがとうございました。 フォームのBeforeUpdate、AfterUpdateですね。 やってみます。
- 78tch
- ベストアンサー率31% (50/157)
更新フラグを立てるということをするのではないでしょうか。 Yes/No型の値を設定し、フォームを開いた時やレコード移動時はNoにし、新規入力や編集された時にYseにして、戻るや閉じるをしようとしたとき、もしYesだったら「更新されていますが保存しますか？」と訊くようにしていますよ。Noならなにも言いません。 で、そのようにするためにはフォームはテーブル等とは非連結にし、DBオブジェクトを操作する、という風にしなければなりません。AccessVBAの中では核心の部分だと思いますが、私はこのあたり「Access97Expert」という本で勉強しました。 ただし97と2000ではDBオブジェクトの扱いが変わっていますので要注意です。（DAO→ADO）
お礼
ご回答ありがとうございました。 フォームとテーブルの連結を非連結にするのは、他にも作業があるため、ちょっと厳しいです。 今までDAO、ADOは、ちょっと抵抗があってなるべく使用しないようにしていたのですが、これからは避けずにチャレンジしてみようと思います。
関連するQ&A
- アクセス サブフォームのレコードの値が変更したら
フォームの中にテーブルに基づいたサブフォームを入れています。 サブフォームはデータシートビューで表示しています。 そのサブフォームのレコードの値が変わったら msgboxを表示させるにはどのイベントで行なえば良いですか？ サーブフォームのコントロールに Private Sub ページ名_AfterUpdate() MsgBox "" End Sub としたら確かにメッセージボックスは表示されるのですが 全てのコントロールにつけないとだめですか？ 「サブフォームのレコードの値が変更したら」 とするにはどうすればいいでしょうか？
- ベストアンサー
- その他MS Office製品
- １つ前のレコードのフィールドをコピーするVBAについて
あるフィールドに入力する時、１つ前のレコードと同じ値であれば、Ctrl＋２で簡単に入力出来ますね。 それで、更に入力の手間を省くために、これもVBAで自動化しようと思ったのですが、はてどうしたらと行き詰まってしまいました。 入力用のフォームを作っておいて、いくつかのフィールドに入力するテキストボックスをいくつか作って、そのうち１つはほとんど同じ値を持つとすれば、このフォームの更新前のイベントプロシージャが適切かと思います。このフォームに入力しようとしたら、即座にほとんど決まった値を持つフィールドに、１つ前のレコードの値が入るというようなコードになるかと思います。そのコードの１例を教えて頂けますか？また、他のいい方法はあるのでしょうか？ 以上、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- アクセスで最後のレコード内容の同入力
アクセス2002を使っています。[年月日]と[内容]のフィールドがあります。新しいレコードに本日の年月日と、前回の最後レコードの内容をコマンドボタンを押すだけで入力したいのですが、（前 Do ボタン） コマンドボタンのプロパテイのイベントのクリック時にプロシジャーでどう書けばよいのですか？教えてください。 VB初心者です。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ACCESSフォームのリストボックスでレコードが選択できない
ACCESS2000です。 フォームの左側に親テーブルのフィールド１の値を選択させるリストボックスがあり、そこで選択したレコードにリンクする子テーブルのレコードをフォームの右側にサブフォームで表示させたいのですが、リストボックスでレコードを選択できません（クリックしても反転しません）。でもレコード移動ボタンを押すと、リストボックス内の該当レコードがちゃんと反転し、右側のサブフォームにも正しく反映します。 リストボックスのプロパティはくまなく見ましたがそれらしい設定項目はみつかりませんでした。どこを直せばよいのでしょうか。
- 締切済み
- オフィス系ソフト
- Ａｃｃｅｓｓ更新クエリの「レコード更新」をフォームから指定する方法
お世話になっています。 早速ですが質問があります。 テーブルにあるフィールドの値を全て変更する更新クエリを作成したのですが、出来ればフォームから指定したいのです。 どうやったら「レコードの更新」の値をフィールドから指定出来るのでしょうか？ 以上、よろしくお願いします
- 締切済み
- オフィス系ソフト
- accessのレポートで…
レポート（テーブル１から作成）にあるフィールド１には「1・2・3…」という数字が入っています。 この１・２・３はテーブル２（ID・名前）とリンクしています。 フォーム上ではコンボボックスにして、テーブル２の名前も表示するようになっています。 （テーブルに値としては入っていません） これでレポートを作成した場合、テーブル２の名前を表示させたいのですが、テキストボックスで Iif([フィールド１] = "1","****",Iif(… というようにしてしまうと、せっかくリンクにしたのにデータが固定になってしまうのを避けたいんです。 フォームだとコンボボックスの更新後処理とレコードの移動にコードをかけば最新の情報を表示することができたんですが、レポートでもこのようなことはできるんでしょうか？ （コードをかいて処理したいです） Access2000です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access2003 レコード削除時のメッセージを変更するには
いつもお世話になっております。 フォーム上の削除ボタンをクリックすると、メッセージが表示されて”OK”をクリックすると該当のレコードが削除されます。 このメッセージを任意に変更したいのですが、どうすればいいでしょうか？ 現在のコードはこのようになっています。 DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 具体的にはリレーションシップが組んであるレコードを削除しようとすると、 「このリレーションシップには参照整合性の・・・」という長いメッセージが表示されるのを「このデータを削除しますか？」のように変更したいのです。 ご教授いただければ幸いです。よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- ACCESSでレコードのコピー
ＡＣＣＥＳＳ初心者です。 テーブルt_Aとt_Bがあり、t_Aを元にしたフォームがあるとします。 行いたいのはこのフォームでレコードを選択しボタンをクリックして t_Aの該当レコードのフィールドの値をt_Bのフィールドにコピー（新規追加）したいのです。 追加クエリでなんとかなるかなと思ったのですが思うようなクエリが作れないのです。 アドバイスをいただけませんでしょうか。 マクロ、ＶＢＡの利用方法についてはほぼわかっております。
- ベストアンサー
- その他(データベース)
- ACCESS サブフォーム レコード移動ボタンをつ
ACCESS初心者です。 フォーム A サブフォーム B リンク親フィールド 名前 子リンク親フィールド 名前 サブフォームで表示されるレコードセレクタと移動ボタンを、フォームA上にオリジナルでボタンとテキストで下記項目を作成したいです。 作りたい項目 ボタン1 次のレコードへ移動 ボタン2 前のレコードへ移動 テキストボックス 現在のレコード/レコード数 ボタンの作成まではできましたが、イベントプロージャにどういう内容を入れたらよろしいのでしょうか
- ベストアンサー
- Access（アクセス）
- 異なるフォームに属する関数間でACCESSのレコードセットを受け渡しする。
msAccess2000のVBAコードの質問です。 元々、全てを理解しているわけではないのにVBAコードを書いているのが無茶なんですが、無茶を承知でプログラミングしています。 あるクエリの結果を、あるフォームで帳票表示しています。この帳票の一レコードにボタンをつけて、クリックイベントで、そのレコードを取得しようとしています。フォームはこの後、閉じられた後、呼び出された親にその、レコードを渡したいのです。 フォームは、親フォームのボタンクリックイベントから、DoCmd.Openformメソッドによって呼び出されるので、戻り値は使えません。 しょうがないので、広域変数rst(DAO.Recordset型)で、受け渡そうと思ったのですが、recordset型は、どうやら参照のようで、フォーム(クエリ？)を閉じると、レコードが壊れてしまうようなのです。 Module1で、 public rst as DAO.recordset として、 Private Sub コマンド34_Click() set Module1.rst=me.recordset ' この中では、rst.fields(*)で、フィールドの値を使えるのですが・・・ END Sub 呼び出した親フォームでは、module1.rst.fields(*)を使用できません。 質問は二つあります。 １）広域変数ｒｓｔは、上記のような宣言・使用法で問題ないですか？ ２）sub またはfunction間にわたって、レコードを渡す、いい方法はないですか？
- 締切済み
- オフィス系ソフト
お礼
ご回答ありがとうございました。 参考ＵＲＬで細かな解説があり、うまくいきました。