Recordset Error

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello,

I have a couple of questions:

When I attempt to use the following code, I get the error "Too Few
Parameters. Expected 6".
dim db AS Database
dim rs AS RecordSet

'As an alternative to the following two lines I also tried
'Set rs = dbEngine(0)(0).OpenRecordset("qrySchedDblEnt")

Set db = CurrentDb
Set rs = db.OpenRecordset("qrySchedDblEnt") 'When Debugging this line is
flagged
Do While Not rs.EOF
rs.MoveNext
Loop
rs.Close
End If

A second question, if I manage to clear up the first, is how do I pull
values from the recordset as I'm looping through?

For instance, say I want the value of the field "ClientID", would it be
rs.Fields("ClientID")? Or is there a different format? I'm relatively new
to working with recordsets in this manner.
 
Vel,

The error indicates that there are values in the qrySchedDblEnt query
which can't be evaluated. This often happens if the query references
values from controls on a form, either within calculated fields in the
query, or in criteria. Can you post back with the SQL view of the query?

rs!ClientID is how I usually do it.
 
Back
Top