[Resolvido]Recuperar tabela deletada

Deus nos guarde.

Deletei, inoportunamente, uma tabela em meu BD.

Há alguma maneira de recuperá-la?

Obrigado pela atenção.

Pedro.

Olá Pedro Luiz
Espero que não tinha compactado/reparado a base de dados.

Veja resgatar tabela deletada no link abaixo:
https://www.maximoaccess.com/t11-102-codigos-vba-para-access

Abraço

Deus abençoe pela resposta.

O link informado não abre. Se tiver um novo link ou a informação, ficaria imensamente grato.

Pedro.

Boa noite,

O código seria o mencionado em baixo,

Criado por Ahteixeira adaptado a partir do exemplo do nosso colega JPaulo, para recuperar todas as tabelas apagadas, enumerando-as.

Código:

Function RecuperaTbl()
Dim booRec As Boolean
'Elaborado por JPaulo 2009-03-19
'Função que resgata uma tabela deletada

'Atualização por ahteixeira 2017-04-04 para MaximoAccess
'Função resgata varias tabelas eliminadas, enumerando-as

  Dim db As DAO.Database, strTablename As String
  Dim i As Integer, StrSqlString As String
  Set db = CurrentDb()
  For i = 0 To db.TableDefs.Count - 1
  Debug.Print booRec
    If Left(db.TableDefs(i).Name, 4) = "~tmp" Then
       strTablename = db.TableDefs(i).Name
       StrSqlString = "SELECT DISTINCTROW [" & strTablename & _
         "].* INTO TabelaRecuperada" & i & " FROM [" & strTablename & "];"
       DoCmd.SetWarnings False
       DoCmd.RunSQL StrSqlString
       DoCmd.SetWarnings True
       MsgBox "A tabela foi resgatada e ficou com o nome TabelaRecuperada" & i, _
         vbOKOnly, "Recuperação..."
       booRec = True
       'GoTo Exit_Undo
    End If
  Next i
  If booRec = False Then MsgBox "Não foram encontradas tabelas apagadas...", vbOKOnly, "Validação"
Exit_Undo:
     Set db = Nothing
     Exit Function
Err_Undo:
     MsgBox Err.Description
     Resume Exit_Undo
End Function
 
'Nota:
' resgata se o banco não for Compactado/Reparado.

Cumprimentos

Deus nos abençoe a todos.

Deu certo, conforme código passado.

Muito obrigado pela paciência e atenção.

Pedro

COMO FAZ ISSO , NÃO ENTENDI

Olá Gilliard,

Veja mensagem nº 8 do tópico abaixo:
https://www.maximoaccess.com/t32729-resolvidoconverter-data-em-string-do-mes

Aguardamos que reveja a conduta que tem adotado e regularize as inconformidades.

Abraço a todos