Нумерация записей ленточной или табличной форме

По материалам: https://www.cyberforum.ru/ms-access/thread3133465.html

Private Function FrmRecordSerialNumber(SourceForm As Form) As Variant
' Нумерация записей (строк) в ленточной или табличной форме
' es - 14.10.2023 v001
' -------------------------------------------------------------------------------------------------/
' Просто поместите код функции в модуль формы и потом задайте источник данных поля нумерации так:
' =FrmRecordSerialNumber([Form])
' -------------------------------------------------------------------------------------------------/
On Error GoTo FrmRecordSerialNumber_Err
    With SourceForm.RecordsetClone
        .Bookmark = SourceForm.Bookmark
        FrmRecordSerialNumber = .AbsolutePosition + 1
    End With
' -------------------------------------------------------------------------------------------------/
FrmRecordSerialNumber_End:
    Exit Function

FrmRecordSerialNumber_Err:
    If Err.Number <> 3021 Then ' 3021 = No current record!
        MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Function :" & _
        "FrmRecordSerialNumber ().", vbCritical, "Error!"
    End If
    Err.Clear
    Resume FrmRecordSerialNumber_End
End Function

MSA-2003 ( 193 kB) Пример