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

    pedroluiz
    pedroluiz
    Intermediário
    Intermediário

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

    Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty 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:
    http://www.maximoaccess.com/t11-102-codigos-vba-para-access

    Abraço
    pedroluiz
    pedroluiz
    Intermediário
    Intermediário

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

    Respeito às Regras 100%

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

    [Resolvido]Recuperar tabela deletada Empty 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
    pedroluiz
    pedroluiz
    Intermediário
    Intermediário

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

    Respeito às Regras 100%

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

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

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

    cheers
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  crysostomo em 8/1/2019, 20:05

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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 8/1/2019, 20:52

    Olá Gilliard,

    Veja mensagem nº 8 do tópico abaixo:
    http://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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/5/2019, 18:38