You will receive this error message if you do not explicitly set the value of the parameter query when using VBA
an example would be
dim db as database
dim qryDef as querydef
dim rst as recordset
set db = currentdb
set qrydef = db.querydefs.("MyQry")
' sets parameter to current value on...