Do While loop missing last record

[Sorwen]

I have a While loop (or Do Loop Until) that loops through records in an ADODB record set while .EOF <> True. For some reason it is returning true before the last record.

Do While rsTable1.EOF <> True
        Count2 = 0
        rsTable2.AddNew
        For Count = 0 To (rsTable1.Fields.Count - 1)
            rsTable2.Fields.Item(Count2).Value = rsTable1.Fields.Item(Count).Value
            Count2 = Count2 + 1
        Next Count
        rsTable1.MoveNext
        DoEvents
    Loop

The record set cannot return a count so I can't use a for loop. EOF shouldn't return as true until past the last record. Any ideas?

-I hate Microsoft!
-Forever and always forward.

 

[SkipVought]

Hi,

Try

Do 
        Count2 = 0
        rsTable2.AddNew
        For Count = 0 To (rsTable1.Fields.Count - 1)
            rsTable2.Fields.Item(Count2).Value = rsTable1.Fields.Item(Count).Value
            Count2 = Count2 + 1
        Next Count
        rsTable1.MoveNext
        DoEvents
Loop Unitl (rsTable1.EOF)

Skip,

_[red][/red]

 

[Sorwen]

Thanks, I had tried that and it didn't work. I found the problem however. What the problem seems to be is that addnew doesn't actually force the record set to add new. It only creates a new line for data to be added. The reason it was only dropping the last is that .addnew will force the record set to update before it adds a new line. So you still have to .update after the last. Adding .update allows either loop to work correctly. Thanks again for the help.

-I hate Microsoft!
-Forever and always forward.