アクセス レポートを開いたときにパラメーターの自動入力がしたい

お世話になります。

アクセスでレポートを開いたときにパラメーターの自動入力が出来るようにしたいです。
レポートの読み込み時に下記コードを記入しました。

Private Sub Report_Load()

Dim dbs As Database
Dim qdf As QueryDef
Dim rst As Recordset

Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("Q見積書明細")
With qdf
.Parameters("[Forms]![Frm見積書]![見積ID]") = Forms!T登録用紙!紐づけ見積ID
Set rst = .OpenRecordset
End With

With rst
Do Until .EOF
Debug.Print !見積ID
.MoveNext
Loop
End With

End Sub

エラーは出てきませんが、パラメータ入力のウインドウが出てきてしまいます。
どのように修正すればよいでしょうか？
ご回答よろしくお願いします。

No.4 ベストアンサー 回答者： ShowMeHow 回答日時： 2022/11/30 13:51

[Forms]![Frm見積書]![見積ID]

をクエリ上で、[p見積もりID]とかに変えて、.Parametersの指定もそれに変えてみたらどうなるでしょう？

実効環境ないので、試せなくて済みません。

この回答へのお礼

ご返信遅れました！
出来ました！ありがとうございました！

お礼日時：2022/12/02 11:17

No.3 回答者： めくりや 回答日時： 2022/11/30 12:49

AutoExecマクロでは？

Access起動時の自動処理　AutoExecマクロの活用方法 _ 簡単！！Access作成方法の紹介
https://www.latest-info-system.com/access-macro- …

この回答へのお礼

ご回答ありがとうございます！

アクセス起動時の処理ですね。今回はレポートを起動したときの処理なのでまた使う機会があれば参照させて頂きます。

お礼日時：2022/11/30 13:31

No.2 回答者： ShowMeHow 回答日時： 2022/11/30 12:11

えーー、私は、DAOつかわないので、（ADOでSQL実行させる以外の使い方をしないので）外しているかもしれませんが、、、

.value が必要なのかもしれません。
https://note.com/deepbluewriting/n/n8c6edb04887f

同じようなクエリ複数作るとか、とかいう逃げ道もありますが。

この回答へのお礼

.valueを付けてみましたがダメでした…
url参照にもう少し考えてみますね。

お礼日時：2022/11/30 13:32

No.1 回答者： ShowMeHow 回答日時： 2022/11/30 11:26

アクセス的な使い方をするなら、クエリの抽出条件を

Forms!T登録用紙!紐づけ見積ID
としておくのが、簡単かも

この回答へのお礼

ご回答ありがとうございます！

そうですね。紐づけするレポートが1点だけでしたらシンプルですね。
ただ、今回は紐づけするレポートが2点あり、vbaを書いています。
もしご存じでしたら教えて頂けますと幸いです。

お礼日時：2022/11/30 12:02