Set rs code not working in Access

Question

Hi there,

I am having issues with the bolded line of the following code in that I get a 3061 error: "Too few parameters. Expected 1." The following code works fine where I am pulling data from a table, but not from any queries. Can anyone see the problem with this?

Set db = CurrentDb

**Set rs = db.OpenRecordset("GBO", dbOpenSnapshot)** 

With rs 

    If .RecordCount <> 0 Then 

        Do While Not .EOF 

            sDataArray = sDataArray & "                       {ClientID: """ & ![Client ID] & """, Appointmentdate: """ & ![Appointment date] & """, GoalProgress1: """ & ![Goal progress 1] & """}," & vbCrLf 

            .MoveNext 

        Loop 

    End If 

.Close 

End With

Set rs = Nothing

Set db = Nothing

Answer 1

Can you run the GBO query directly without a problem? Are you sure it is the SET rs line throwing the error? What does your DIM rs statement look like?

Answer 2

Hi, Thank you for your response. Unfortunately that does not make a difference.

Answer 3

Try "SELECT * FROM GBO"

Does that make any difference?

Answer 4

Hi HansV,

Thank you for your response - no the query does not display a parameter prompt when opened directly, and it does not refer to a control on a form.

Answer 5

Does the GBO query display a parameter prompt when opened directly? Or does it refer to a control on a form?