Hola Antoni/Diego, finalmente ya he solucionado el error. El hecho por el que no recogía los datos era porque en la BBDD que utilizamos para cargar dichos datos (donde únicamente había 1 hoja con los datos) se había modificado añadiendo otra hoja nueva (alguien del dto había creado la nueva pestaña para un ejercicio), por lo que existían dos hojas en el fichero y la macro como es lógico se "perdia" al encontrar dos hojas y no una. Finalmente he eliminado la hoja que se ha añadido nueva y ahora funciona todo correctamente. Muchas gracias a todos por la ayuda, no sabéis lo que me habeis ayudado haciendo que funcione como antes.
.....
.....
Set rst = dbs.OpenRecordset(consulta)
If rst.RecordCount = 0 Then
MsgBox "No hay información"
Exit Sub
End If
'Se eliminan estas líneas, no sirven para nada
'rst.MoveLast
'rst.MoveFirst
.....
.....
Muchas gracias por la respuesta, voy a comprobar a que 100% coincida los datos ¿puedes comentarme el proceso de validar el RecordCount? ¿En que parte de línea de código iría? Muchas gracias de nuevo
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now