run code on the last record of a loop
I am trying to run the following code within a loop. If I am on the LAST record in the loop I want the If/Then statement below to run, but its not running. How can I make line 6 run on the very last record of the recordset in the loop?
Do Until rec1.EOF = True
'More code here
If rec1.EOF = True Then
HoursServed(i) = HoursServed(i) & " Total = " & LoopTotal
End If
Loop
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
You have a code function that moves to the next record, presumably.
such as rec1.MoveNext(). I'm presuming that you do that AFTER the rec1.eof check. you should do that right before.
such as rec1.MoveNext(). I'm presuming that you do that AFTER the rec1.eof check. you should do that right before.
This is where it happens. Same problem
Do Until rec1.EOF = True
'More code here
If rec1.EOF = True Then
HoursServed(i) = HoursServed(i) & " Total = " & LoopTotal
End If
rec1.MoveNext
Loop
Do Until rec1.EOF = True
'More code here
rec1.MoveNext
If rec1.EOF = True Then
HoursServed(i) = HoursServed(i) & " Total = " & LoopTotal
End If
Loop
or you could just put this outside the loop
Do Until rec1.EOF = True
'More code here
rec1.MoveNext
Loop
HoursServed(i) = HoursServed(i) & " Total = " & LoopTotal
Premium Content
You need an Expert Office subscription to comment.Start Free Trial