Recorrer un Recordset
Publicado por Anesco (5 intervenciones) el 11/01/2015 20:43:13
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
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
Valora esta pregunta


0