Numbering of records

[Vladimir Koudela]

Hi people,

I am sure most of you have already solved the Access' stupid problem: there
is no simple way of numbring of records shown in a continuous form, needed
so often (top-lists, achieved place in a contest...). Could you suggest any
solution?

Thank you,
Vladimir

[Stephen Lebans]

See:
http://www.lebans.com/rownumber.htm
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
Err_Serialize:

rs.Close

Set rs = Nothing

End Function
Peter Schroeder

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Vladimir Koudela" <vk******@net4u.hr> wrote in message
news:c8**********@bagan.srce.hr...

Hi people,

I am sure most of you have already solved the Access' stupid problem: there is no simple way of numbring of records shown in a continuous form, needed so often (top-lists, achieved place in a contest...). Could you suggest any solution?

Thank you,
Vladimir