** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Recuperar registros borrados
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoRecuperar registros borrados
 Responder Responder
Autor
Mensaje
  Tema Buscar Tema Buscar  Opciones del Tema Opciones del Tema
pascual14 Ver desplegable
Colaborador
Colaborador


Unido: 30/Junio/2014
Localización: Soria
Estado: Sin conexión
Puntos: 570 		Enlace directo a este mensaje Tema: Recuperar registros borrados
    Enviado: 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. 
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14926 		Enlace directo a este mensaje Enviado: 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

Mi web
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 14428 		Enlace directo a este mensaje Enviado: 05/Octubre/2024 a las 20:33
Publicado originalmente por xavi xavi escribió:

"no borres registros; tan solo muévelos a una tabla de registros borrados, que los usuarios son muy manazas."

¡Que buen consejo!
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4856 		Enlace directo a este mensaje Enviado: 08/Octubre/2024 a las 22:04
Buenas ,  mira este enlace quizás te pueda servir.
Ojo No lo he probado,
https://www.accessdemo.info
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1301 		Enlace directo a este mensaje Enviado: 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
Arriba
pascual14 Ver desplegable
Colaborador
Colaborador


Unido: 30/Junio/2014
Localización: Soria
Estado: Sin conexión
Puntos: 570 		Enlace directo a este mensaje Enviado: 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. 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable