MS-ACCESSのフォーム切り替え表示について

質問

フォームA（少量データ）からフォームB（大容量データ）を呼び出して表示させる方法について
教えてください。

まず、フォームAは複数の個人名のボタンとサブフォームで全員の最新情報が表示される
ものを作っています。
この個人名のボタンをクリックするとフォームBにその個人の全情報を表示させる仕組みなのですが、フォームBは情報量が多い為、表示させるのに時間がかかります。

そこで下記のようなVBAを記述し、Do～LoopでフォームBが開くまでの時間を稼ごうと思っても
次の処理が行なわれてしまい、エラーになってしまいます。

Private Sub ボタン_Click()
DoCmd.OpenForm "フォームB"
Do Until SysCmd(acSysCmdGetObjectState, acForm, "フォームB") = acObjStateOpen
DoEvents
Loop
Application.Forms![フォームB].Controls![担当者名] = "担当A"
Me.フォームB.Requery
End Sub

これでフォームBが開くまで待ってから次のステップのフォームB内の条件設定や
Requery処理を行なうと思っているのですがうまくいきません。
DoEvents処理が入っているせいかと思い、はずしたのですがそれでもうまくいきません。

もともとはフォームBだけで運用していたのですがデータ量が増えて表示に時間がかかり
すぎるので新たに項目は同じで件数の少ない最新情報のみのテーブルを作成し、
それをもとにフォームAを作成しています。

ですのでフォームA,Bともに同じようなサブフォームになっており、またそれぞれの
サブフォームを構成するテーブルが異なる為に1つのフォームでの処理ができません。

拙い説明ですがどなたかご教授願います。

回答No.1

hatena1989 · ベストアンサー

> Application.Forms![フォームB].Controls![担当者名] = "担当A"

ここでエラーになるということですか。

その行とDo ... Loop を削除して、
フォームB の開くときか読み込み時に、

Me.Controls![担当者名] = "担当A"

とするのではだめですか。

"担当A"という値をフォームAの方で決めたいということなら、

DoCmd.OpenForm "フォームB", OpenArgs:="担当A"

として、フォームB の開くときか読み込み時に、

Me.Controls![担当者名] = Me.OpenArgs

お礼

hatena1989様　回答有難うございます。

早速、フォームAで『DoCmd.OpenForm "フォームB", OpenArgs:="担当A"』として
フォームBの読み込み時に『Me.Controls![担当者名] = Me.OpenArgs』として確認したのですが「実行時エラー2485　マクロを見つけることができません」となってしまいました。
どこがおかしいのでしょうか？
たびたび申し訳ありませんがよろしくお願いします。

補足

hatena1989様　回答有難うございます。

すみません、間違えがわかりました。
無事にできました。ありがとうございます。