Rownumber.zip is a database containing functions for the automatic row numbering of Forms, SubForms and Queries.
Updated Oct. 13 by Allen Browne. Includes error handling and cleaned code.
Here's an update to the Serialize function by Peter Schroeder:
Good to hear. FWIW, here's the version I came up with today, based off of your code and Ken's(Getz) suggestion, with a few changes:
Function Serialize(qryname As String, keyname As String, keyvalue) As Long
Dim rs As Recordset
On Error GoTo Err_Serialize
Set rs = CurrentDb.OpenRecordset(qryname, dbOpenDynaset, dbReadOnly)
rs.FindFirst Application.BuildCriteria(keyname, rs.Fields(keyname).Type, keyvalue)
Serialize = Nz(rs.AbsolutePosition, -1) + 1
Set rs = Nothing