アクセス２０００でデータ抽出時に・・・。

質問

以前、質問No.203113で教えていただいたデータ抽出方法を応用して、別のデータベースでも同じようなものを作ったのですが、条件を入力して抽出できるものと出来ないものが出てきました。エラーとして「実行時エラー'2185':コントロールがフォーカスを取得していない時に、コントロールのプロパティまたはメソッドを参照することはできません。」と出ます。
テーブルには、T_グループ名、T_個人名簿、T_住所一覧があり、T_グループ名に付けたサブデータシートではT_個人名簿が正しく表示されているのに（グループ名でリンクしている）、T_グループ名とT_個人名簿から作ったクエリではデータが漏れています（T_個人名簿で代表者をチェックしてグループ名とその代表者がわかるように選択クエリを作っています）。このクエリをもとにフォームを作っているのですが、ここで表示されていないデータの抽出条件を入れると、上のようなエラーが出ます。クエリで表示されているものは上手く抽出できます。
このクエリをもとに作ったフォームだから、条件を入れても抽出できないのだろう、と言うことはわかるのですが、解決方法がわかりません。
ビギナーなので、どのように表現すればわかっていただけるのか・・・。わかりにくい内容ですが、どなたかご指導お願いします。

回答No.5

yoisho

○クエリーの件
一つだけ確認ですが、Ｔ_個人名簿テーブルの[住所ＩＤ] と結合している Ｔ_住所一覧テーブルのフィールドは [住所] フィールド（[住所ＩＤ] フィールドでなく）で間違いありませんでしょうか。
とすれば、maro200さんがおっしゃるように、SQLを見たところではクエリーに特に問題はないようですので、やはりテーブルのデータの問題でしょうか？

○データ抽出時のエラーの件
もしかしたらフォームの AllowAdditions（追加の許可）プロパティを False（いいえ）に設定されているでしょうか？
もしそうですと、レコード数がゼロ（該当データが無い）の場合、フィルターをかけようとするとこんなエラーが出ると思います。（とすれば、クエリーの問題が解決しても、たとえば名前の抽出にまちがって“ん”なんて入れてしまうと、エラーが出てしまいます。）

これが原因なら、最も簡単な解決方法は、（再下段に常に空の行が表示されてしまいますが）フォームの追加の許可をはいにすることです。（レコード数がゼロになっても、新規レコードに移動できる。）
データの追加を禁止したければ、各テキストボックスの Enabled（使用可能）、Locked（編集ロック） プロパティで、工夫してみてください。

どうしても空の行を表示させずにエラーを回避したければ、
（１）レコード数がゼロになった場合に、分岐処理で工夫する。
レコード数のチェックは、Dcount関数（こちらの方が考え方がわかりやすい）か、Me.RecordsetClone.RecordCount（すっきりしているし処理も高速だけど、初心者には考え方が多少難しい）でできるかと思います。
（２）エラー処理で対応する。
ＶＢＡがマクロより優れていることの一つは、エラー処理が可能ということです。
On Error ステートメントの HELP がヒントです。

どちらにしてもその後の処理も工夫が必要ですので、それなりに複雑になります。なれていないとけっこう難しいかと思いますので、必要でしたら補足でコメントを要求してください。

もし原因が、上記の問題とは違うようでしたら、フォームのモジュールを示していただけませんでしょうか。

○追伸
追加アドバイスが必要な場合、月曜以降になってしまうかもしれませんが、ご容赦ください。

補足

お世話になります。クエリの件については、maro200さんにお礼として伝えたとおりクリアーしました。データ抽出時のエラーの件については、未だ解決とは行っていません。アドバイスいただいた、フォームの追加許可は「はい」になっていますが、間違った条件を入れてしまえばエラーが出ます。
抽出条件にはコンボボックスを使って、T_グループ名の値を表示選択できるようにしています。フォームのデータは、困っていたクエリですが、クエリに抽出できていないグループ名を入れるとエラーになります。わかりにくいですが、これってクリアーする方法あるのでしょうか？ありましたらご指導お願いします。