VBA-loop werkt niet

[SA3]

Ik heb onderstaande code. De loop (MoveNext) werkt niet. Ik zie steeds het eerste record. Wat doe ik fout?

Option Compare Database
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Integer

Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Customer")

For i = 0 To rs.RecordCount - 1
    varX = DLookup("[Achternaam]", "tbl_Customer", "[CustomerID]")
    Debug.Print varX
    rs.MoveNext
Next i

rs.Close
Set rs = Nothing
db.Close

End Sub

 

[john64]

Je kunt het proberen met

If rs.RecordCount  > 0 Then
   rs.MoveFirst

   Do Until rs.EOF
      varX = DLookup("[Achternaam]", "tbl_Customer", "[CustomerID]")
      Debug.Print varX
      rs.MoveNext
   Loop
End If

 

[OctaFish]

Een beetje vreemde code; waarom een recordset en dan DLookup gebruiken? Raar gebruik.

Sub test()
Dim rs As DAO.Recordset
Dim strSQL As String
    
    strSQL = "SELECT [Achternaam] FROM tbl_Customer WHERE [CustomerID] = " & [CustomerID]
    Set rs = CurrentDb.OpenRecordset(strSQL)
    With rs
        Do While Not .EOF
            Debug.Print !Achternaam
            rs.MoveNext
        Loop
    End With
End Sub