.MOVEFIRST ADO Object not working

[togo]

has this happened for anyone else, usually start access up and get it to renumber the ID on my list of items, but to do this it has to start at the first entry... and for some reason it starts in middle of the list for number 1! this is becoming an issue because I use VBA mostly. Using .MOVENEXT in my loops. I do not get it. I've given up trying to identify where Access's internal pointer actually is. It seems to fly around.

not that his code will help, but this is how I generally do things:

Dim dbc As Object
Dim dbd As Object
Dim fldEnumerator2 As Object
Dim fldColumns2 As Object
Set dbc = CurrentDb
Set dbd = dbc.OpenRecordset("ItemAcceptance")
dbd.MoveFirst
curRec = 1: IDcount = 1
RowCount = 1:
tries = 0
curRec = 1: IDcount = 1
RowCount = 1:
For abcd = 1 To totalitems
    For Each fldEnumerator2 In dbd.Fields
        If fldEnumerator2.Name = "ID" Then
            dbd.Edit: fldEnumerator2.Value = fldEnumerator2.Value - (smallestRec - 1): dbd.Update
        End If
    Next
dbd.MoveNext
Next

[togo]

Here's the example for today:
1, 10, 11, 12, 13, 14, 15, 16, 2, 3, 4, 5, 6, 7, 8, 9

trying to get a list of 16

Set dbc = CurrentDb
Set dbd = dbc.OpenRecordset("Header")
For i = 1 To 16: dbd.AddNew: dbd("ID").Value = i: dbd.Update: Next

added in dbd.MoveFirst right after set dbd, and now it gives me error 'no current record'

[pbaldy]

For starters, think of the table as a bucket of data with no inherent order. If you want the records in a certain order, open the recordset that way:

Set dbd = dbc.OpenRecordset("SELECT * FROM ItemAcceptance ORDER BY Whatever")

Second, what's the purpose of the For Each fldEnumerator2 loop? I don't see one, and you can simply refer to the desired field with:

dbd!ID

Unless it's a copy/paste error, you have these lines twice:

curRec = 1: IDcount = 1
RowCount = 1:

And unless they're declared elsewhere, you use a bunch of undeclared variables.

[togo]

copy paste error. Thanks for the pointer. I'll change the way the records are opened hopefully that'll do the trick

[togo]

yep, having a tough time with using the table "Header", which initially has no entries. I want to have 16 empty entries (except for the ID) using this routine. It won't take .MOVEFIRST

[pbaldy]

No problem; post back if you're still having a problem.

[togo]

how do I get an entire row to copy onto the next row?

[pbaldy]

If the table has no entries, the MoveFirst will error, but you don't need it anyway.

In a recordset you'd have to copy every field. I'd probably use an append query with a criteria.

[togo]

good call. Trying to learn so much access at once I forget what the basic methods are.