No.1ベストアンサー
- 回答日時:
Requeryというメソッドを使うとよいと思います。
ただ、Requeryを使うと通常の方法ではカレントレコードが先頭に戻ってしまいますので、カレントレコードがそのままで、更新できるようにします。
以下、私の覚書をそのままコピペします。
*******************************************************
●Requeryしてもカレントレコードを移動しないようにする方法
言い換えると、カレントレコードを移動させないでRequery(更新)する方法
サブフォーム(単票、帳票どちらでも可)を作って、
サブフォーム/サブレポートコントロールに対してRequeryをかけるだけでそうなる。
サブフォーム/サブレポートコントロール名 は通常はサブフォーム名と同じ場合が多い。サブフォーム/サブレポートコントロールは埋め込みオブジェクト。
サブフォームは、サブフォーム/サブレポートコントロールと実際のフォームの2つから成っている。そこを理解しておかなければならない。
メインフォームだけを作ってサブフォームを作らない場合、つまり、直接メインフォームでデータを表示させ、Me.Requery とやる場合は当然ダメ。
APIを使う方法などの他の方法でやらなければならない。
●メインフォーム上のコマンドボタンでRequeryする場合
コマンドボタンのクリック時イベントに次のように書く。
Forms("メインフォーム名")("サブフォーム/サブレポートコントロール名").Requery
または
Me("サブフォーム/サブレポートコントロール名").Requery
●サブフォーム上のコマンドボタンでRequeryする場合
メインフォーム名やサブフォーム名を汎用的な感じのコードでやってみた。
ボタンのクリックイベントに書く。
'『 実行時エラー '2118'
' "Requery/再クエリ"アクションを実行する前に、
' カレントフィールドを保存する必要があります。』
'が出たら以下の1行を足す。出なければコメントアウト。
'念のためコメントアウトしないほうがいいかも
DoCmd.RunCommand acCmdSaveRecord
'リクエリをする。
'より汎用的にするには、Parentを使わないほうが
'いいのかもしれない。
Parent(Screen.ActiveForm.ActiveControl.Name).Requery
●メモ
サブフォームのどこかのコントロール(テキストボックスなど)にフォーカスがある場合、そのサブフォームを格納するサブフォーム/サブレポートコントロールの名前を取得するには、
Screen.ActiveForm.ActiveControl.Name で取得できる。
サブフォームにフォーカスがある場合、
Screen.ActiveForm.Name
を実行すると、メインフォームの名前が出てきてしまう。
しかし、逆にいうと、サブフォームにフォーカスがある場合なら
メインフォームのサブフォーム/サブレポートコントロールが絶対にアクティブになっているはずなので、それを利用する。
「Parent」の部分は、Meでも良いし、オブジェクト変数名でもよい。
が、オブジェクト変数名のほうが汎用的にしやすいのでそちらのほうがいいと思われる。
以上のことから、フォームを作成するときは、基本的には
できるだけサブフォームを作ったほうがよいかもしれない。
これ以外のメリットもあるし。
「メインフォーム上にデータを表示しないといけないとき」は
無理しないで、普通にメインフォームを使えばいい。
サブフォームの中のサブフォームというのもまた面倒になるので。
もしくは、サブフォームのサブフォームが必要な場合は、別フォームを開く形にして、
そこでもメイン+サブという形を貫くか。そうすると汎用コードが作りやすくなるかもしれない。
別に2画面同時に表示することもできるわけなので。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) accessについて(超初心者です) 1 2023/02/11 11:18
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
5
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
6
ACCESSでコントロールソースの変更
Access(アクセス)
-
7
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
8
Accessフォームで詳細内の任意の行へSetFocus
Excel(エクセル)
-
9
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
10
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
11
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
12
アクセスVBAのMe!と[ ]
Access(アクセス)
-
13
どこにもフォーカスを当てたくない
Access(アクセス)
-
14
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
15
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
16
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
17
ACCESSのBookmarkプロパティの使い方
その他(データベース)
-
18
Access「レコードが削除されました」のエラー
Access(アクセス)
-
19
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
20
ACCESSフォーム入力後の確定
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クエリで出来た表にチェックボ...
-
ACCESSのサブフォームコピーに...
-
皆さん使っているブラウザを教...
-
Access 2003でサブフォームが更...
-
ACCESS──メインフォームでサブ...
-
【Access】サブフォームのソー...
-
アクセス2003のサブフォームの...
-
ACCESSサブフォームにデータ反...
-
ACCESS サブ・メインフォーム...
-
Excel VBA 全部のUserForm名
-
ACCESSのフォームで列固定?
-
ACCESSにて
-
サブフォームに対してGoToRecor...
-
VBAでサブフォームに自動的にデ...
-
Accessのサブフォームつきフォ...
-
Access 登録ボタンからサブフォ...
-
Access VBA には Gridはないで...
-
ACCESSで条件によってサブフォ...
-
Access Dsum関数
-
親フォームからサブフォームの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォームに対してGoToRecor...
-
クエリで出来た表にチェックボ...
-
親フォームからサブフォームの...
-
皆さん使っているブラウザを教...
-
ACCESS──メインフォームでサブ...
-
ACCESSにて
-
サブフォームを非表示させる方...
-
親・子リンクフィールドの設定...
-
ACCESS VBA メインフォーム及び...
-
ACCESSのフォームで列固定?
-
ACCESSサブフォームにデータ反...
-
Access VBA には Gridはないで...
-
ACCESSで条件によってサブフォ...
-
Accessで埋め込んだサブフォー...
-
【Access】サブフォームのソー...
-
アクセス2003のサブフォームの...
-
ACCESSのサブフォームコピーに...
-
サブフォームに変数を代入し、R...
-
ACCESS サブ・メインフォーム...
-
Access フォームで条件抽出し...
おすすめ情報