質問させていただきます。
前提・実現したいこと打ち消し線
コンボボックスで入力した内容でデータを検索し、サブフォームにその内容を反映したい。
現状
メインフォームを作成し、フォームヘッダーのコンボボックスで条件を設定。
検索ボタンのクリック時の処理で、その条件に沿ったデータをテキストボックスに内容を返すことはできている。
コンボボックスに条件がない場合は「可視＝いいえ」にしているため表示されないが、値が入るとVisible = Trueにしているため表示される。
また、その際にQueryDefsで同条件の過去履歴を見るためのクエリを作成し、それをもとにサブフォームとして「F_履歴」を作成。
（サブフォームも「可視＝いいえ」にしており、値がある場合は表示するように設定）
発生している問題・エラーメッセージ
コンボボックスで値を変更し、検索を行った場合表示されるサブフォームの内容が更新されない。クエリの内容は書き換わっているがフォーム上でRequeryが実行されない。
試したこと
Me.Controls("F_履歴").Form.Requery
Me!F_履歴.Form.Requery
Me!F_履歴.Form.Refresh
Forms!F_履歴.Requery
この場合、参照されているフォームが見つかりませんとエラーメッセージが表示されます。
問題なく抜けるのですが、なにも変わりませんでした。
ここに問題に対して試したことを記載してください。
補足情報（FW/ツールのバージョンなど）
ここにより詳細な情報を記載してください。
-
クリップを取り消します
-
質問の評価を上げたことを取り消します
-
質問の評価を下げたことを取り消します
checkベストアンサー
0
クエリのSQLをVBAで動的に変更しているということですね。
その場合は、再クエリでは反映しません。
サブフォームコントロールのソースオブジェクトを再設定してください。
With Me!F_履歴
.SourceObject = ""
.SourceObject = "F_履歴"
End With
再クエリはデータの再読込で、ソースの再読込ではないということだと思います。
クエリで書き換えるのが、抽出条件(Where句)だけなら、サブフォームのFilterプロパティで抽出条件を設定するほうがシンプルかと思います。
クエリには抽出条件は設定しません。
With Me!F_履歴.Form
.Filter = "WHERE句の条件式"
.FilterOn = True
End With
0
確認です。
１．サブフォームは、レコードソースにクエリーを設定して表示している。
２．条件によりvbaで上記で設定しているクエリーの内容を変更している。
で合っていますか？
上記で合っているなら、検索を実行した後であれば、サブフォーム単独で開くと意図した内容のデータが表示時されるはずなので確認して下さい。
表示されないなら、クエリーを単独で開き同様の確認を行って下さい。
投稿
![sazi](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="95" height="95"><rect fill-opacity="0"/></svg>){kind=small}
-
ありがとうございます。
サブフォーム単体で開くと、指定した条件通りの内容が反映しております。
メインフォームでの再読み込みがうまく行ってないようです。
メインフォームの中に、タブを０~３まで使っております。
F_Main
→タブ0
→F＿発注
→F_履歴
上記のように設置しております。ご回答よろしくお願いいたします。 -
ん？
検索条件によりクエリーを書き換える処理はF_Mainで行っているんですよね？ -
F_Mainはタブを作る際に作成しました。
タブ０の中にF_発注があり、そのフォームヘッダー部分にコンボボックスがあります。
分かりにくい説明で申し訳ありません。
15分調べてもわからないことは、teratailで質問しよう！
- ただいまの回答率 87.79%
- 質問をまとめることで、思考を整理して素早く解決
- テンプレート機能で、簡単に質問をまとめられる
napoleon
2018/04/24 17:39