Hola de nuevo!!
Para resolver el problema que planteaba, he creado un módulo con una función que devuelve el valor de un contador para ir numerando los registros resultantes de un consulta:
---------------------------------------------
Option Compare Database
Global Contador As Integer
Global TotalRegistros As Integer
Function Cuentas(Dato As Integer) As Integer
'Incremento el numero de registro
Contador = Contador + 1
'Devuelvo el valor incrementado
Cuentas = Contador
'Compruebo si es el ultimo registro de la consulta a numerar
'Si es asi, inicializo el contador para que al volver a ejecutar la consulta
'comience a numerar desde 0 otra vez
If TotalRegistros = 0 Then
TotalRegistros = DCount("Codigo", "Listado Clientes")
Else
If Contador = TotalRegistros Then
TotalRegistros = 0
Contador = 0
End If
End If
End Function
---------------------------------------------
Despues en el diseño de la consulta creo un nuevo campo numero y pongo :
Numero: Cuentas([Codigo])
Cuando ejecuto la consulta, durante 1segundo aparece todo correcto, y va numerando
1
2
3
..
Pero inmediatamente despues se refrescan esos valores y si de la consulta resultan 80 registros,
aparece algo como esto:
78
79
80
1
2
...
Además cada vez que muevo la barra de desplazamiento, se recalculan esos valores...
Alguien me puede explicar cual es el problema... ?
Una vez más..GRACIAS
