サブフォームのRequeryについて

質問させていただきます。

前提・実現したいこと打ち消し線

コンボボックスで入力した内容でデータを検索し、サブフォームにその内容を反映したい。

現状

メインフォームを作成し、フォームヘッダーのコンボボックスで条件を設定。
検索ボタンのクリック時の処理で、その条件に沿ったデータをテキストボックスに内容を返すことはできている。

コンボボックスに条件がない場合は「可視＝いいえ」にしているため表示されないが、値が入るとVisible = Trueにしているため表示される。

また、その際にQueryDefsで同条件の過去履歴を見るためのクエリを作成し、それをもとにサブフォームとして「F_履歴」を作成。
（サブフォームも「可視＝いいえ」にしており、値がある場合は表示するように設定）

発生している問題・エラーメッセージ

コンボボックスで値を変更し、検索を行った場合表示されるサブフォームの内容が更新されない。クエリの内容は書き換わっているがフォーム上でRequeryが実行されない。

試したこと

    Me.Controls("F_履歴").Form.Requery
    Me!F_履歴.Form.Requery
    Me!F_履歴.Form.Refresh

Forms!F_履歴.Requery
この場合、参照されているフォームが見つかりませんとエラーメッセージが表示されます。

問題なく抜けるのですが、なにも変わりませんでした。

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答2件

ベストアンサー

クエリのSQLをVBAで動的に変更しているということですね。
その場合は、再クエリでは反映しません。

サブフォームコントロールのソースオブジェクトを再設定してください。

vba
1With Me!F_履歴
2    .SourceObject = ""
3    .SourceObject = "F_履歴"
4End With

再クエリはデータの再読込で、ソースの再読込ではないということだと思います。

クエリで書き換えるのが、抽出条件(Where句)だけなら、サブフォームのFilterプロパティで抽出条件を設定するほうがシンプルかと思います。
クエリには抽出条件は設定しません。

vba
1With Me!F_履歴.Form
2    .Filter = "WHERE句の条件式"
3    .FilterOn = True
4End With

投稿2018/04/24 08:06

編集2018/04/24 08:10

hatena19

総合スコア33715

napoleon

2018/04/24 08:39

ご回答ありがとうございます。ソースの再読み込みで更新された内容がサブフォームに表示されました。ありがとうございました。

行動規範の内容に同意します

確認です。
１．サブフォームは、レコードソースにクエリーを設定して表示している。
２．条件によりvbaで上記で設定しているクエリーの内容を変更している。
で合っていますか？

上記で合っているなら、検索を実行した後であれば、サブフォーム単独で開くと意図した内容のデータが表示時されるはずなので確認して下さい。

表示されないなら、クエリーを単独で開き同様の確認を行って下さい。

投稿2018/04/24 07:37

sazi

総合スコア25188

napoleon

2018/04/24 08:03 編集

ありがとうございます。サブフォーム単体で開くと、指定した条件通りの内容が反映しております。メインフォームでの再読み込みがうまく行ってないようです。メインフォームの中に、タブを０~３まで使っております。 F_Main 　→タブ0 　　　→F＿発注　　　　　→F_履歴上記のように設置しております。ご回答よろしくお願いいたします。