Looping table until end

[Paul Wagner]

How do I loop through a small table plucking out the key until no more records? At each pass I want to perform an insert into another table (I think I've got that part down...just don't know how to loop through a table)

TIA!!

 

[WayneRyan]

Paul,

Dim dbs As DAO.Database
Dim rst As DAO.RecordSet

Set dbs = CUrrentDb
Set rst = dbs.OpenRecordSet("Table1")

While Not rst.EOF and Not rst.BOF
   DoCmd.RunSQL "Insert Into Table2 (TheKey) Values (" & rst.TheKey & ")"
   rst.MoveNext
   Wend

Wayne