为了打开参数查询, 你须要明确指出基于参数查询打开记录集的每一个参数.
例如, 在下面的代码中, 查询 "Qry1" 拥有两个参数: [Please enter Code:] 和 [Please enter city:].
Dim db As Database ' 当前数据库
Dim rs As Recordset ' 保存查询结果的记录集
Dim qdfParmQry As QueryDef ' 实际的查询对象
Set db = CurrentDb()
Set qdfParmQry = db.QueryDefs("Qry1")
qdfParmQry("Please Enter Code:") = 3
' or try this alternate method
' to pass the parameter
qdfParmQry![Please Enter City:] = "New York"
Set rs = qdfParmQry.OpenRecordset()
责任编辑：小草
