Looping through every record

[Lanason]

Does anyone know the syntax for a loop that steps through every record in a table

For 1 to x (where x in the no of records in the table)

action

next


how do I set X to be the number of records in the table???

 

[boblarson]

Do you really need to do so? What do you need to loop for?

Anyway, here it is:

Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("TableOrQueryNameHere")

Do Until rst.EOF
   '...do something
   rst.MoveNext
Loop

rst.Close
Set rst = Nothing