Recordset Error

[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.

 

[Steve Schapel]

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.