Dim rst1,rst2
set rst1 = currentdb.Openrecordset("SELECT Xfrm_id From YouTable GROUP BY Xfrm_id ")
while not rst1.EOF
counter =1
set rst2 = currentdb.Openrecordset("SELECT * From YouTable WHERE Xfrm_id= " & rst1.Fields("Xfrm_id"))
while not rst2.EOF
rst2.edit
rst2.Fields("Amps") = 1000*counter
rst2.Fields("Amp_seq") = counter
rst2.Update
counter=counter+1
rst2.MoveNext
Wend
rst1.MoveNext
Wend
I would like to number 1 to ..... from lowest amps to highest. below is an example of what I would like to have when completed.That's how I knew.
=1
Then set it's Group property to OverGroup.
You can hide the group header and footer so that the report doesn't change. Otherwise the Xfrm_id would be in the group header and not show on each detail record.