Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Use Do while to loop through until EOF
Private Sub RunningSumDAO()
    Dim db As Database
    Dim rs As Recordset
    Dim lRunningSum As Long
    DBEngine.SetOption dbMaxLocksPerFile, 1000000
    Set db = CurrentDb
    
    lRunningSum = 0
    
    Set rs = db.OpenRecordset("SELECT * FROM Employees ORDER BY FirstName")
    Do While Not rs.EOF
       rs.Edit
       rs!RunningSum = lRunningSum
       rs.Update
       lRunningSum = lRunningSum + rs!Duration
       rs.MoveNext
    Loop
    rs.Close
End Sub