Microsoft Access 掲示板

vbaでレコードセットrsにパラメータクエリを格納したい

2 コメント
views
4 フォロー

レコードセットrsにパラメータクエリを格納したいのですが、添付のエラーが表示されてしまいます。
↓のコードのqd.Parametersの部分でパラメータを指定しているのですが、相変わらずエラー出てしまいます。

Set db = CurrentDb
Set qd = db.QueryDefs("Q_経費精算振込明細用")
qd.Parameters("[forms]![F_経費精算]![振込月]") = Forms![F_経費精算]![振込月]

Set rs = db.OpenRecordset("Q_経費精算振込明細用")

お手すきの際で構いませんので、解決策がわかれば教えていただけますと幸いです。
画像1
画像2
画像3

名前なし
作成: 2021/11/25 (木) 17:11:34
最終更新: 2021/11/25 (木) 17:13:59
通報 ...
1

qd のパラメータを設定したのですから、qdをOpenRecordsetしてください。

Set db = CurrentDb
Set qd = db.QueryDefs("Q_経費精算振込明細用")
qd.Parameters("[forms]![F_経費精算]![振込月]") = Forms![F_経費精算]![振込月]

Set rs = qd.OpenRecordset
2
名前なし 2021/11/26 (金) 11:34:12 7f390@642cb

hatenas様

解決しました。
ご助言いただきありがとうございます。