hatena
hatena
2021/11/25 (木) 17:30:00
qd のパラメータを設定したのですから、qdをOpenRecordsetしてください。
Set db = CurrentDb
Set qd = db.QueryDefs("Q_経費精算振込明細用")
qd.Parameters("[forms]![F_経費精算]![振込月]") = Forms![F_経費精算]![振込月]
Set rs = qd.OpenRecordset
通報 ...