llevo ya varias horas pensando en como añadir un campo ID en una query, este campo es tan sencillo que sólo incrementa en 1 cada fila, es decir como un campo ID normal.
Os ilustro un poquito, la query viene linkada desde una tabla excel así:

Y quiero agregar a en la consulta la columna id tal que así:

Como véis ya lo tengo hecho pero la segunda imagen corresponde al programa BrioQuery y lo que estoy intentado hacer es migrar las querys que tengo en ese programa a Access; laboriosa labor. En este programa para hacerlo era tan sencillo como usar la función Cume(Help) donde Help es una columna con valor 1.
Una solución que he intentado a sido usar la función pero no deja de actualizar:
Cita:
Digo yo que será algo mucho más fácil pero se me está empalagando, a ver si alguien me echa una mano, gracias. '************************************************* ************
' Function: Qcntr()
'
' Purpose: This function will increment and return a dynamic
' counter. This function should be called from a query.
'************************************************* ************
Function QCntr(x) As Long
Cntr = Cntr + 1
QCntr = Cntr
End Function
'************************************************* *************
' Function: SetToZero()
'
' Purpose: This function will reset the global Cntr to 0. This
' function should be called each time before running a query
' containing the Qcntr() function.
'************************************************* *************
Function SetToZero()
Cntr = 0
End Function
' Function: Qcntr()
'
' Purpose: This function will increment and return a dynamic
' counter. This function should be called from a query.
'************************************************* ************
Function QCntr(x) As Long
Cntr = Cntr + 1
QCntr = Cntr
End Function
'************************************************* *************
' Function: SetToZero()
'
' Purpose: This function will reset the global Cntr to 0. This
' function should be called each time before running a query
' containing the Qcntr() function.
'************************************************* *************
Function SetToZero()
Cntr = 0
End Function