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 Sex 03 Nov 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 : 5123
    Registrado : 15/03/2013

    Re: [Resolvido]Recuperar tabela deletada

    Mensagem  ahteixeira em Sex 03 Nov 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 Sex 03 Nov 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 : 248
    Registrado : 16/12/2015

    Re: [Resolvido]Recuperar tabela deletada

    Mensagem  pcnet em Sab 04 Nov 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 Seg 06 Nov 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 : 5123
    Registrado : 15/03/2013

    Re: [Resolvido]Recuperar tabela deletada

    Mensagem  ahteixeira em Seg 06 Nov 2017, 16:47

    cheers

      Data/hora atual: Qui 24 Maio 2018, 13:10