Access - Como crear un columna autonumerica en consulta

Hola a Todos !!!

Tengo una consulta que es demasiado extensa, tiene más de 300.000 registros y quiero agregarle una columna que enumere los registros

Encontre dentro del foro un procedimiento que funciona, pero cuando lo ejecuto con una consulta muy extensa me sale un error de desbordamiento

Lo que hice fue lo siguiente:

Primero crear un Módulo nuevo y pega dentro esta Función, sin cambiar NADA
y guárdalo con cualquier nombre (Módulo1 por ejemplo):

Public Function Numerador(Campo) As Long
Static Ordenar As Integer
If IsNull(Campo) Then
Ordenar = 0
Exit Function
End If
Ordenar = Ordenar + 1
Numerador = Ordenar
End Function

Ahora creas una nueva Consulta, la abres en diseño, cierras la ventana "Mostrar Tabla"
sin seleccionar ninguna y te vas directamente al Menú "Ver / Vista SQL" y ahí pegas
esta línea:

Select Numerador([NombreCampoTabla]) As NroRegistro, * From Tabla1
Union All Select Numerador(Null), * From Tabla1 Where 1=0;

Aquí cambias "NombreCampoTabla" por el nombre del primer campo de tu Tabla Origen
y "Tabla1" por el nombre real de la misma. También puedes cambiar "NroRegistro"
por otro nombre para el campo numerador, aunque esto es opcional. Ejecuta la consulta
de Unión y verás como el primer campo (NroRegistro) numera correlativamente los registros,

Esto lo escribio "Enrique"

Si alguien puede ayudarme les agradeceria. Gracias.-

Prueba poniendo Public Function Numerador(Campo) As Double

Hola... probe con Double y lo mismo me genera el error de desbordamiento

El mensaje que me da es el siguiente:

>>>Se ha producido el error '6' en tiempo de ejecución:

>>>Desbordamiento

Te copio el modulo

Public Function Numerador(Campo) As Double
Static Ordenar As Integer
If IsNull(Campo) Then
Ordenar = 0
Exit Function
End If
Ordenar = Ordenar + 1
Numerador = Ordenar
End Function

Cuando voy a Depurar e ingreso al modulo aparece sombreado en amarillo
Ordenar = Ordenar + 1

Pues si, puedes definir Ordenar como doble, parece que con integer no le alcanza para la cantidad de datos que debe procesar, llega un momento en que el # registro es un valor superior a lo que admite este tipo de datos

Y si pones:

Static Ordenar As Long

Intenta sustituir la segunda linea de tu codigo por este que puse arriba, a ver que sale...
Saludos!!

El desbordamiento se produce aqui "Static Ordenar As Integer" asi que prueba con Static Ordenar As double

Con esta modificación funciona. Muchas gracias por vuestra ayuda.-

La función sirve a medias, en mi caso, crea el autonumérico, si yo me voy hasta el último e inmediatamente después me regreso hasta el primero me vuelve a generar otros autonuméricos.....

Saludos!!

No te compliques la vida, diseña la consuta y cuando este terminada la convierte en una consulta de creación de tabla,

Ya con una tabla es sencillo, le creas un campo tipo autonumerico y este automáticamente genera el consecutivo...

Mira lo puedes hacer de esta manera:

SELECT DCount("[uncamponumericoacontar]","[nombretabla]","uncamponumericoacontar<" & [uncamponumericoacontar])+1 AS contador,campo2, Campo3
FROM nombretabla ;

es importante que el campo que pongas como referencia a "contar sea unico"