Recuperar registros borrados
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86990
Fecha de impresión: 26/Marzo/2026 a las 17:41
Tema: Recuperar registros borrados
Publicado por: pascual14
Asunto: Recuperar registros borrados
Fecha de publicación: 05/Octubre/2024 a las 19:47
| Hola amigos, por primera vez me hace falta recuperar registros borrados de dos tablas. Un cliente se ha liado y ha borrado una docena de albaranes sin darse cuenta y los necesita. ¿hay alguna forma de recuperarlos? no se ha compactado la bbdd ni nada. Gracias por la ayuda. |
Respuestas:
Publicado por: xavi
Fecha de publicación: 05/Octubre/2024 a las 19:58
|
Hola, Creo recordar un mensaje de hace mucho tiempo (no se si aquí o en otra parte) dónde se decía que, si no se había compactado la BDD, se podrían recuperar desde DBase. Pero claro, es de hace mucho tiempo y no sabría decirte ni como abrir una base de datos con DBase. Si averiguo algo más te digo. En todo caso se impone la pregunta del millón: ¿Copia de seguridad? Y el consejo que me dio un cliente mucho tiempo atrás: "no borres registros; tan solo muévelos a una tabla de registros borrados, que los usuarios son muy manazas." Un saludo ------------- Xavi, un minyó de Terrassa http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: Mihura
Fecha de publicación: 05/Octubre/2024 a las 20:33
¡Que buen consejo! ------------- Jesús Mansilla Castells. Saludos desde Móstoles. http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones http://www.tecsys.es" rel="nofollow - Tecsys.es |
xavi escribió:Publicado por: javier.mil
Fecha de publicación: 08/Octubre/2024 a las 22:04
|
Buenas , mira este enlace quizás te pueda servir. Ojo No lo he probado, https://quickdata.org/blog/how-to-recover-deleted-data-from-access-table/" rel="nofollow - https://quickdata.org/blog/how-to-recover-deleted-data-from-access-table/ ------------- https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info |
Publicado por: main
Fecha de publicación: 11/Octubre/2024 a las 12:54
|
Buenos dias Para recuperar Public Function RecuperarTablas() As Boolean RecuperarTablas = False Dim tabla As Object Dim CadSQL As String, x As Long x = 1 For Each tabla In CurrentDb.TableDefs If Left(tabla.Name, 4) = "~TMP" Then CadSQL = "SELECT * INTO [Recuperada" & x & _ "] FROM [" & tabla.Name & "];" CurrentDb.Execute CadSQL x = x + 1 End If Next If x > 1 Then RecuperarTablas = True End Function Para ver Public Function TablasEliminadas() Dim tabla As Object, CadSQL As String, x As Long x = 0 For Each tabla In CurrentDb.TableDefs If Left(tabla.Name, 4) = "~TMP" Then Debug.Print tabla.Name x = x + 1 End If Next TablasEliminadas = x End Function |
Publicado por: pascual14
Fecha de publicación: 11/Octubre/2024 a las 13:01
| Nada, no ha habido forma de recuperar esos registros. gracias a todos por la ayuda, podeis cerrar el hilo. |