Here is one that works

M

Mark A. Sam

I was checking over my code and discovered this this procedure for
renumbering line items works fine in adding records to the recordsetclone:

Private Sub Form_AfterUpdate()

'Number lines - Store in [detItem]
Dim rs As Recordset
Dim I As Integer
Set rs = Me.RecordsetClone

rs.MoveFirst

Do Until rs.EOF
I = I + 1
rs.Edit
rs![detItem] = I
rs.Update
rs.MoveNext
Loop

Set rs = Nothing

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Data type conversion error 0
MSAccess 2000 -- Error 91 problem 7
Data passing thru the fields of the header 0
Compile Error - Don't know WHY? 6
Loop through and Update (INSERT INTO) 6
Using "tiles" 1
traversing a large recordset 4
Form data not refreshing after editing 1

Top