La Web del Programador: Comunidad de Programadores
 
    Pregunta:  34213 - ¿INSERTAR UNA COLUMNA AUTONUMERICA EN UNA CONSULTA?
Autor:  Juan
Deseo insertar una columna con valores autonuméricos directamente en una consulta sin utilizar una tabla con campos autonuméricos? ¡Se puede?, ¿Cómo?.

  Respuesta:  ROQUE PEREZ
hola JUAN. Podés utilizar la función dmáx en la columna que deseas sea autonumérica y la función siinm, para indicar que si el valor es nulo comenzar con 1; sería algo así:
=siinm(nz(campoautonumérico;"");1;dmáx("campo";"tabla")+1)

Espero te sirva.

  Respuesta:  JOSE MARTINEZ DE BUTRON
En un módulo, que no tiene por qué ser nuevo, metes el siguiente código:

Option Compare Database
Option Explicit

Global Cntr
\'***********************************************************
\' Función: Conta()
\' Propósito: Esta función incrementa y devuelve un contador
\' dinámico. SE puede utilizar desde una consulta.
\'***********************************************************
Function Conta(x) As Long
Cntr = Cntr + 1
Conta = Cntr
End Function
\'***********************************************************
\' Función: PoneraCero()
\' Propósito: Esta función reinicia la variable global a 0.
\' Esta función debe ser llamada antes de ejecutar cualquier
\' consulta que contenga la función Conta()
\'***********************************************************
Function PoneraCero()
Cntr = 0
End Function

=======================

Espero que te sirva. Creo que está bastante claro, ¿no?