Too Few Parameters (A2k/xp)

Topic

New Reply

I get the infamous “Too few parameters, expected 1” message on this line of code:

Set rs = db.OpenRecordset(“qryTeenAdventureCampLetter”, dbOpenDynaset)

Any and all assistance is appreciated. TIA.

Reply | Quote

Replies

You will get this error if qryTeenAdventureCampLetter has a parameter in the Criteria line, e.g. [Enter Last Name] or something similar, or if it refers to a control on a form, e.g. [Forms]![frmDataEntry]![txtLastName]. Does one of these apply?

Reply | Quote

It has a parameter that refers to a control on a form.

Reply | Quote

Say that your query refers to [Forms]![frmDataEntry]![txtLastName]
You can change the code as follows:

Dim qdf As DAO.QueryDef
Set qdf = db.QueryDefs(“qryTeenAdventureCampLetter”)
qdf.Parameters(“[Forms]![frmDataEntry]![txtLastName]”) = [Forms]![frmDataEntry]![txtLastName]
Set rs = qdf.OpenRecordSet(dbOpenDynaset)

Reply | Quote

Thanks much, Hans.

Reply | Quote