Quiero que uno de los campos actualice el numero de registros que ocupa ¿Cómo lo hago?

CurrentRecord es para form no para recordset
la posición en un recordset es con AbsolutePosition
pero en una consulta de actualización tendría que pensarlo
por código seria así
   Dim r As Recordset
   Set r = CurrentDb.OpenRecordset("select * from Tabla", dbOpenDynaset)
   If r.RecordCount > 0 Then
      r.MoveLast
      r.MoveFirst
      For a = 1 To r.RecordCount
            r.Edit
            r!Campo =r.AbsolutePosition
            r.Update
         End If
         r.MoveNext
      Next
   End If

Pero no tiene mucho serntido que hagas eso
1º El número de registro cambia dependiendo del Orden
2º Puedes usar un campo autonumérico ya te da los números mientras no elimines
3º Puedes crear un campo y al ir agregando registros vas guardando uno más que el máximo guardado co dmax("Campo","Tabla")+1
¿4º Para que lo quieres grabado si lo puede saber en todo momento?

Pues a ver, lo quiero porque me han pasado una tabla con datos de empresas, pero no tienen nif, y le tengo que asignar un numero ficticio, no tiene porque se correlativo, sólo tiene que ser único en la tabla. También podría ser autonumérico, pero no se como hacerlo en la consulta de actualización.