MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Recuperar tabela deletada

    pedroluiz
    pedroluiz
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty [Resolvido]Recuperar tabela deletada

    Mensagem  pedroluiz 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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty Re: [Resolvido]Recuperar tabela deletada

    Mensagem  ahteixeira 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:
    https://www.maximoaccess.com/t11-102-codigos-vba-para-access

    Abraço
    pedroluiz
    pedroluiz
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty Recuperar tabela deletada

    Mensagem  pedroluiz 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.
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty Re: [Resolvido]Recuperar tabela deletada

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

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty Recuperar tabela deletada

    Mensagem  pedroluiz 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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty Re: [Resolvido]Recuperar tabela deletada

    Mensagem  ahteixeira 6/11/2017, 16:47

    cheers
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1715
    Registrado : 23/01/2018

    [Resolvido]Recuperar tabela deletada Empty Re: [Resolvido]Recuperar tabela deletada

    Mensagem  crysostomo 8/1/2019, 20:05

    COMO FAZ ISSO , NÃO ENTENDI
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty Re: [Resolvido]Recuperar tabela deletada

    Mensagem  ahteixeira 8/1/2019, 20:52

    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

      Data/hora atual: 16/6/2021, 15:36