Numerar registros en un formulario continuo

Se añade la siguiente función a nuestro formulario:

Public Function AWorden(xDATO) As Double
With Me.RecordsetClone
If IsNull(xDATO) Then
AWorden = .RecordCount + 1
Else
If Me.NewRecord Then
AWorden = .RecordCount + 1
Else
.Bookmark = Me.Bookmark
AWorden = .AbsolutePosition + 1
End If
End If
End With
End Function

y se incorpora un cuadro de texto al formulario al que se le coloca en la propiedad “Origen del control”:

=AWorden([uncampodelatabla])

El procedimiento también sirve para formularios no tabulares.

Fuente: Foro de Access VBA