Access VBA フォームからクエリの抽出条件を変更して、レポート表示

Question

Accessで①クエリを作成し、作成したクエリから②クロス集計クエリを作成。
その後クロス集計クエリを③レポートで表示しています。

現在は①を開いて抽出条件を変更して、③レポートを表示しています。

VBAを使用してフォームを作成し、抽出条件をコンボボックスから選択してレポートを表示したいが上手くい行きません。

①クエリの抽出条件に[Forms]![フォーム名]![オブジェクト名]を設定し、DoCmd.OpenReport "レポート名"をしましたが、
[Forms]![フォーム名]![オブジェクト名]有効なフィールド名、または式として認識出来ませんとなります。

DoCmd.OpenQuery "クエリ名", acViewNormal, acReadOnlyだとクエリは開きます。

クエリを開いた後なら出来るか試した結果、同じくレポート時にエラーです。
DoCmd.OpenQuery "クエリ名", acViewNormal, acReadOnly
DoCmd.OpenReport "レポート名"←ここでエラー

Answer 1

クロス集計クエリにパラメータを設定するときは、「クエリパラメータ」を設定する必要があります。詳細は下記参照。

クロス集計クエリを元にパラメーター クエリを実行「～認識できません」エラー｜Access｜ヘルプの森

上記の点は大丈夫ですか。

[Forms]![フォーム名]![オブジェクト名] の部分のフォーム名は間違いないですか。また、そのフォームは開いたままにしてますか。
オブジェクト名はコンボボックスの名前になってますか。

とりあえず原因として思いつくのはこれぐらいかな。

Comments

[kyousuke8957]

教えて頂いた、リンク先からパラメーターを設定しました。
結果、クエリを開く時にパラメーターの入力を行い表示させる事はできました。
VBAのコマンドからDoCmd.OpenReport "レポート名"実行すると、同じくパラメーターの入力を求められます。

クエリ→クロス集計クエリ→レポート
を
クロス集計クエリ→レポート
に変更してみましたが、結果は変わらずです。

クロス集計の抽出条件を、フォームから変更しレポート表示を実現したいです。

[hatena19]

> VBAのコマンドからDoCmd.OpenReport "レポート名"実行すると、同じくパラメーターの入力を求められます

そのパラメータの標題は [Forms]![フォーム名]![オブジェクト名] ですか。それともフィールド名ですか。

[Forms]![フォーム名]![オブジェクト名] なら、そのフォームが閉じていると思われます。
フィールド名だとしたら、クロス集計クエリのフィールド名が固定されていない可能性があります。
下記を参考に「クエリ列見出し」プロパティを設定してください。

Accessのクロス集計で列を固定する - Qiita
https://qiita.com/fuk101/items/731379d12cd7f5559fb2

もし、列名を固定できないということなら、下記で紹介されている方法をとることになります。

列名が変化するクロス集計クエリと連結するフォーム - hatena chips
https://hatenachips.blog.fc2.com/blog-entry-117.html

[kyousuke8957]

ありがとうございます。

列を固定する事で対応できました。