Do until rst.EOF

  • Thread starter Thread starter Scott
  • Start date Start date
S

Scott

I have to loop trough a recordset in my database using the following code:

************************************

Dim rst AS DAO.Recordset
Dim strSQL AS String
strSQL = "Select...My Critarie"
Set rst = CurrentDB.OpenRecordset(strSQL)

Do until rst.EOF
rst.Edit
rst!FieldName = My Entry
rst.Update
rst.MoveNext
loop


*************************************

The problem I have is that when I get the first time to the "Do until
rst.EOF" statement it finds the end of the recordset when in fact the
recodrset has some 35 records, but it shouldn't work this way, it should
loop trough each record in the recordset and do the appropriate updates.

Thanks,

Scott
 
Scott,

Try forcing your recordset to begin with the first record. Insert the
following before the Do Until rst.EOF

rst.MoveFirst

hth,
 
Scott said:
I have to loop trough a recordset in my database using the following
code:

************************************

Dim rst AS DAO.Recordset
Dim strSQL AS String
strSQL = "Select...My Critarie"
Set rst = CurrentDB.OpenRecordset(strSQL)

Do until rst.EOF
rst.Edit
rst!FieldName = My Entry
rst.Update
rst.MoveNext
loop


*************************************

The problem I have is that when I get the first time to the "Do until
rst.EOF" statement it finds the end of the recordset when in fact the
recodrset has some 35 records, but it shouldn't work this way, it
should loop trough each record in the recordset and do the
appropriate updates.
Click to expand...

Are you sure that the recordset is not in fact empty? This doesn't look
like your real code, because the capital letters aren't all in the right
places.
 
Scott said:
I tested in with the SQL statement in the SQL view of a query.
Click to expand...

If EOF = True immediately after opening a DAO Recordset then you didn't get
any records returned.

Try a test where you open the Recordset, do a MoveLast, then the command...

MsgBox rst.RercordCount

I would also do a Debug.Print strSQL and try pasting the output into a
query. I suspect that the SQL you *think* you are getting is not what is
actually being produced.
 
Thanks; I found that the recordset was empty, because I used a variable in
the criteria.

Scott
 
Back
Top