You might try the following:
Public NewProcedure(frm as form)
Dim ty As Integer
Dim tp As Integer
Dim ny As Integer
Dim np As Integer
Dim rs As Recordset
Set rs = frm.RecordsetClone
rs.MoveLast
ty = rs("Year")
tp = rs("Period")
Call...
I'm not sure why you need to renumber your records, but a suggestion would be create a new table containing your fields with the "Counter" field being an autonumber. Next create an append query sorts your "Item" field decending; and append to the newly created table.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.