Here is one that works

[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