ник: osmor
нумерация в форме дело не благодарное.
почитайте Вот это
http://hiprog.com/index.php?option=com_content&task=view&id=359&Itemid=35
или решение от MS
создаете
функцию
Function LineNumber(id As Long) As Integer
'id- значение ключевого поля, если поле строка то - id As String
Dim intI As Integer
Dim rst As Object
On Error GoTo Err_LineNumber
Set rst = Me.RecordsetClone
rst.FindFirst "[КодЗаписи] = " & id
' если id строка то
'rst.FindFirst "[КодЗаписи] = '" & id & "'"
Do Until rst.BOF
intI = intI + 1
rst.MovePrevious
Loop
Exit_LineNumber:
LineNumber = intI
Exit Function
Err_LineNumber:
intI = 0
Debug.Print Err.Description
Resume Exit_LineNumber
End Function
|
создаете свободное поле в свойстве данные данного поля пишите:
=LineNumber([КлючевоеПоле])
|
на записях больше 20 будет заметно тормозить