How to add a ranking field to my access query

[PaulCL]

How to I add a ranking field to my access query. I have five fields, but would like to add a 6th field to rank the results of the query i.e. rank each market by total volume.
Tks

Market:MLS	FirmName	No Offices	Total Units	Total Volume	Rank?

<tbody>
</tbody>

 

[ranman256]

i have a query to sort the table, then the code goes thru marking the rankings....
usage: in a button click
RANK "qsMyQuery"

Public Sub Rank(pvQry)
Dim rst   'As Recordset
Dim lNum As Long


lNum = 1
Set rst = CurrentDb.OpenRecordset(pvQry)
With rst
    While Not .EOF
         .Fields("Rank") = lNum
         .Update
         lNum = lNum + 1
         
         .MoveNext
    Wend
End With
Set rst = Nothing
End Sub

 

[PaulCL]

Thanks Ranman, Do you create a module in my query and copy and paste the code?