ms access - VBA add parameters to new query def -
this code works fine:
dim db dao.database, rs dao.recordset, qd dao.querydef set db = currentdb set qd = db.querydefs("query1") qd.parameters("[cou]").value = "be" set rs = qd.openrecordset until rs.eof debug.print rs!title, rs!country_fk rs.movenext loop rs.close but when try achieve same result creating querydef instead of using existing one, error on qd.parameters line.
set db = currentdb set qd = db.createquerydef qd.sql = "parameters [cou] text ( 255 ); select top 10 title, country_fk dbo_client country_fk=[cou];" qd.parameters("[cou]").value = "be" set rs = qd.openrecordset until rs.eof ... i noticed qd.parameters.count = 0 , qd.parameters.add not allowed.
solution ? thx
your second example should work if give querydef name. if want temporary querydef, use empty string name ...
'set qd = db.createquerydef set qd = db.createquerydef(vbnullstring)
Comments
Post a Comment