Linked Table Loop

clive2002 · Aug 21, 2003

Since splitting my db i'm having problems looping through recordsets, i think it's something to do with the movenext or possibly the calculation of the recordCount as i'm only looping to the first record.

Any help much appreciated, code below.

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblMyTable")

If Not rst.EOF Then
For i = 1 To rst.RecordCount

other code here

rst.MoveNext
Next i
End If
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing

Mile-O · Aug 21, 2003

Code:

    Set dbs = CurrentDb 
    Set rst = dbs.OpenRecordset("tblMyTable") 

    Do While Not rst.EOF Then 
        other code here 
        rst.MoveNext 
    Loop

    rst.Close 
    dbs.Close 
    Set rst = Nothing 
    Set dbs = Nothing

or:

Code:

    Dim i As Integer
    Set dbs = CurrentDb 
    Set rst = dbs.OpenRecordset("tblMyTable") 

    rst.MoveLast
    rst.MoveFirst
    For i = 1 To rst.RecordCount 
        other code here 
        rst.MoveNext 
    Next i

    rst.Close 
    dbs.Close 
    Set rst = Nothing 
    Set dbs = Nothing

clive2002 · Aug 21, 2003

Thanks,

Works a treat!

Linked Table Loop

clive2002

Registered User.

Mile-O

Back once again...

clive2002

Registered User.

Similar threads

Users who are viewing this thread