MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Recuperar tabela deletada

    Compartilhe
    avatar
    pedroluiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 01/11/2012

    [Resolvido]Recuperar tabela deletada

    Mensagem  pedroluiz em 3/11/2017, 14:24

    Deus nos guarde.

    Deletei, inoportunamente, uma tabela em meu BD.

    Há alguma maneira de recuperá-la?

    Obrigado pela atenção.

    Pedro.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5553
    Registrado : 15/03/2013

    Re: [Resolvido]Recuperar tabela deletada

    Mensagem  ahteixeira em 3/11/2017, 19:14

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

    Veja resgatar tabela deletada no link abaixo:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço
    avatar
    pedroluiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 01/11/2012

    Recuperar tabela deletada

    Mensagem  pedroluiz em 3/11/2017, 19:49

    Deus abençoe pela resposta.

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

    Pedro.
    avatar
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 247
    Registrado : 16/12/2015

    Re: [Resolvido]Recuperar tabela deletada

    Mensagem  pcnet em 4/11/2017, 22:53

    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
    avatar
    pedroluiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 01/11/2012

    Recuperar tabela deletada

    Mensagem  pedroluiz em 6/11/2017, 14:32

    Deus nos abençoe a todos.

    Deu certo, conforme código passado.

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

    Pedro
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5553
    Registrado : 15/03/2013

    Re: [Resolvido]Recuperar tabela deletada

    Mensagem  ahteixeira em 6/11/2017, 16:47

    cheers

      Data/hora atual: 22/10/2018, 22:44