ACCESS2000総合相談所

質問があります。

Dim DB As Database
Dim QDEF As QueryDef


Set DB = CurrentDb
Set QDEF = DB.QueryDefs("Q_顧客台帳")
QDEF.Parameters!口座番号 = Me!口座番号
Set 選択顧客 = QDEF.OpenRecordset