ASKER
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.
ASKER
ASKER
ASKER
ASKER
Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.
TRUSTED BY
=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.