質問: Trueにしているため表示される。 また、その際にQueryDefsで同条件の過去履歴を見るためのクエリを作成し、それをもとにサブフォームとして「F_履歴」を作成。 (サブフォームも「可視=いいえ」にしており、値がある場合は表示するように設定) ### 発生している問題・エラーメッセージ コンボボックスで値を変更し、検索を行った場合表示されるサブフォームの内容が更新されない。クエリの内容は書き換わっているがフォーム上でRequeryが実行されない。 ### 試したこと Me.Controls("F_履歴").Form.Requery Me!F_履歴.Form.Requery Me!F_履歴.Form.Refresh Forms!F_履歴.Requery この場合、参照されているフォームが見つかりませんとエラーメッセージが表示されます。 問題なく抜けるのですが、なにも変わりませんでした。 ここに問題に対して試したことを記載してください。 ### 補足情報(FW/ツールのバージョンなど) ここにより詳細な情報を記載してください。
回答: クエリのSQLをVBAで動的に変更しているということですね。 その場合は、再クエリでは反映しません。 サブフォームコントロールのソースオブジェクトを再設定してください。 ``` With Me!F_履歴 .SourceObject = "" .SourceObject = "F_履歴" End With ``` 再クエリはデータの再読込で、ソースの再読込ではないということだと思います。 クエリで書き換えるのが、抽出条件(Where句)だけなら、サブフォームのFilterプロパティで抽出条件を設定するほうがシンプルかと思います。 クエリには抽出条件は設定しません。 ``` With Me!F_履歴.Form .Filter = "WHERE句の条件式" .FilterOn = True End With ```