Recorrer un Recordset

Question

Aunque tengo cierta experiencia en otros lenguajes, soy nuevo en VBA.

Pretendo recorrer un Recordset.

Dim dbsMiBaseDeDatos As DAO.Database

Dim rstMiTabla As DAO.Recordset

SetdbsMiBaseDeDatos = CurrentDb

Set rstProgramados = dbsMiBaseDeDatos.

OpenRecordset("MiTabla")

rstMiTabla.MoveFirst

Do Until rstMiTabla.EOF

MsgBox "" & rstMiTabla!MiCampo           

rstMiTabla.MoveNext

Loop

El orden que obtengo de los registros es el inverso al de la tabla

He hecho todo tipo de comprobaciones,incluso he cambiado el método de búsqueda cambiando: 

MoveFirst por Movelast, EOF por BOF y MoveNext por MovePrevious y entonces si obtengo el orden de la tabla

Podria enviar una copia de la base de datos si alguien pudiera ayudarmeGracias por atenderme, saludos

Answer 1

No creo que sea necesario hacer nada, ni que necesites borrarla y crearla de nuevo, las bases de datos tienen muchas ventajas y una de ellas es la facilidad de ordenar los datos por cualquiera de sus campos, por lo que tienes el problema resuelto, ¿si mañana necesitaras otro orden borrarías los datos y los volverías a crear en el nuevo orden?

Answer 2

Gracias por responder

Perdón por duplicar mi pregunta, no se como eliminarla

Efectivamente así si recibo el orden correcto

Algo he debido hacer mal en esa tabla pues con las demás no tengo problema

Voy a probar eliminando la tabla y creandola de nuevo

Muchas gracias por ayudarme una vez más, un saludo

Answer 3

Hola!

si en lugar de abrir la tabla abres una consulta en la que apliques el orden y criterios que te convengan, tendrás el problema resuelto.