Exactly where is it that I get kicked out of a Do Until ... Loop while traversing records in DAO RecSet???

[MLH]

Take a look at the code that follows. Line 110 is the beginning
of Do-Loop. Regarding line #220, I find that I'm getting Error #3021
(No Current Record) during execution of line #230. It puzzles me
as to Why? I thought if I was on last valid record of RecSet when
line #220 executes, I would be sent to process lines after line #400.
Am I wrong about that?

==> BEGIN CODE SNIPPET <===
110 Do Until RecSet.EOF
StartAnew:
120 WhereAmI = "StartAnew"
....

190 i = i + 1
200 WhereAmI = "Point2"
AddStuff:
210 MyVar0 = MyVar0 & RecSet.TreeFiel d & CRLF & CRLF
220 RecSet.MoveNext ' Kicked out-a-the-loop here???
230 MyVar1 = Trim$(CStr(RecS et.Cust_ID)) & RecSet.RName
....

380 Close #1 ' Close file.
390 ... more code ...
400 Loop
FinishTheLast:
410 WhereAmI = "FinishTheL ast"
420 RecSet.MoveLast
430 MyVar2 = MyVar2 & RecSet.MyField
==> END CODE SNIPPET <===

[Douglas J. Steele]

It's not as though the code on line 110 sits in the background, waiting
until you hit EOF. It's not analogous to On Error GoTo..., if that's what
you're thinking.

Statement 110 only checks for EOF when it gets executed. In other words, the
only time that statement does anything is when the Loop statement on line
400 tells execution to return to line 110.

Every time you have a MoveNext statement, the very next statement must be a
check for EOF.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
"MLH" <CR**@NorthStat e.net> wrote in message
news:t9******** *************** *********@4ax.c om...

Take a look at the code that follows. Line 110 is the beginning
of Do-Loop. Regarding line #220, I find that I'm getting Error #3021
(No Current Record) during execution of line #230. It puzzles me
as to Why? I thought if I was on last valid record of RecSet when
line #220 executes, I would be sent to process lines after line #400.
Am I wrong about that?

==> BEGIN CODE SNIPPET <===
110 Do Until RecSet.EOF
StartAnew:
120 WhereAmI = "StartAnew"
...

190 i = i + 1
200 WhereAmI = "Point2"
AddStuff:
210 MyVar0 = MyVar0 & RecSet.TreeFiel d & CRLF & CRLF
220 RecSet.MoveNext ' Kicked out-a-the-loop here???
230 MyVar1 = Trim$(CStr(RecS et.Cust_ID)) & RecSet.RName
...

380 Close #1 ' Close file.
390 ... more code ...
400 Loop
FinishTheLast:
410 WhereAmI = "FinishTheL ast"
420 RecSet.MoveLast
430 MyVar2 = MyVar2 & RecSet.MyField
==> END CODE SNIPPET <===

[MLH]

Man, you have really cleared the air for me. I was assuming
the code in line #110 operated like On Error GoTo. You had
me pegged! Thx much for the explanation.
xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx x
On Sun, 21 Sep 2003 18:01:08 GMT, "Douglas J. Steele"
<dj******@canad a.com> wrote:

It's not as though the code on line 110 sits in the background, waiting
until you hit EOF. It's not analogous to On Error GoTo..., if that's what
you're thinking.

Statement 110 only checks for EOF when it gets executed. In other words, the
only time that statement does anything is when the Loop statement on line
400 tells execution to return to line 110.

Every time you have a MoveNext statement, the very next statement must be a
check for EOF.