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


    Arquivo ACCDB formato de banco de dados não reconhecido Access 2016

    RELCACH
    RELCACH
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 26/08/2010

    Arquivo ACCDB formato de banco de dados não reconhecido Access 2016 Empty Arquivo ACCDB formato de banco de dados não reconhecido Access 2016

    Mensagem  RELCACH em 31/7/2018, 19:01

    Olá a todos estou desenvolvendo um app de administração de Igrejas sem fins lucrativos, o sistema está na fase final e eu tinha na pasta do sistema a base de dados antiga ainda em .mdb e a fui dar um limpa em arquivos desnecessários na pasta tanto do sistema como na pasta da base de dados pois ia fazendo teste e acumulando .accdbs testados e o original, e por engano deletei a base de dados original a .accdb que já contem dados e configurações das ribbons e outras tabelas ao invés da .mdb que falta esta mencionadas bom usei alguns programas para restaurar este arquivo de volta consegui pois não tinha backup deste tinha somente do front-and ae blz só que o arquivo agora não abre mais esta dando a mensagem de que o formato de banco de dados "caminho do db" não reconhecido vou anexar a imagem da mensagem do access e tentei vários apps na internet de recuperar dbs em access mas sem sucesso pois todos são pagos mostram 4 tabelas 3 delas do próprio access tabelas internas no caso e uma minha somente. se alguém souber fico agradecido e o reino do Senhor mais ainda obrigado vou disponibilizar uma copia do db para ver se alguém consegue restaurar.

    usei ate um script de vbs mas não deu certo

    Código:
    "'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
    '%% %%%%%%%%%%Criado e desenvolvido por %%%%%%%%%%%%%%%%'
    '%%%>>>>&&&&&&&******Décio Malinowski*****&&&&&&<<<<<%%%'
    '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
    Box = InputBox ("Informe Senha","Libera Processo.....Décio")
    If box = "1102" Then

    Box = InputBox ("Informe Senha","Libera Processo.....Décio")
    If box = "1102" Then

    Box = MsgBox ("O banco é em Office 2007(*.accdb)?" &_
    Chr(13) & "Se for clique em Sim." &_
    Chr(13) & "E se for anterior(*.mdb), clique em Não",vbYesNo + vbInformation,"Reparar e Compactar")
    If box = vbYes then
    banco = InputBox ("Informe o caminho do banco com o nome sem a extensão" &_
    Chr(13)& "Ex.:\\caminho\nome banco")
    If banco = VbCancel then
    MsgBox "Ação Cancelada",vbInformation,"Reparar e Compactar"
    Else
    Set Access = Wscript.CreateObject ("Access.Application")
    Set Shell = WScript.CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ori = banco & ".accdb"
    bak = banco & "Compactando.accdb"
    Access.CompactRepair ori,bak
    If FSO.fileexists (bak) Then
    FSO.deletefile (ori)
    FSO.MoveFile bak,ori
    End If
    MsgBox "Banco Reparado",vbInformation,"Reparar e Compactar"
    box1 = msgbox("Abrir Banco Reparado",vbYesNo + vbInformation,"Reparar e Compactar")
    If box1 = vbYes Then
    Access.Visible = TRUE
    Access.OpenCurrentDatabase ori
    If Access.Visible = TRUE Then
    aberto = 1
    Do While aberto = 1
    WScript.Sleep(1000)
    If Access.Visible = False Then
    aberto = 0
    End If
    Loop
    End If
    Else
    'nada faz
    End If
    End If
    Else If box = vbNo Then
    banco = InputBox ("Informe o caminho do banco com o nome sem a extensão" &_
    Chr(13)& "Ex.:\\caminho\nome banco")
    If banco = VbCancel then
    MsgBox "Ação Cancelada",vbInformation,"Reparar e Compactar"
    Else
    Set Access = Wscript.CreateObject ("Access.Application")
    Set Shell = WScript.CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ori = banco & ".mdb"
    bak = banco & "Compactando.mdb"
    Access.CompactRepair ori,bak
    If FSO.fileexists (bak) Then
    FSO.deletefile (ori)
    FSO.MoveFile bak,ori
    End If
    MsgBox "Banco Reparado",vbInformation,"Reparar e Compactar"
    box1 = msgbox("Abrir Banco Reparado",vbYesNo + vbInformation,"Reparar e Compactar")
    If box1 = vbYes Then
    Access.Visible = TRUE
    Access.OpenCurrentDatabase ori
    If Access.Visible = TRUE Then
    aberto = 1
    Do While aberto = 1
    WScript.Sleep(1000)
    If Access.Visible = False Then
    aberto = 0
    End If
    Loop
    End If
    Else
    'nada faz
    End If
    End If
    End If
    End If
    Else
    MsgBox "Senha Incorreta, Lamento....",vbInformation,"Libera Processo.....Décio"
    End If

    Else
    MsgBox "Senha Incorreta, Lamento....",vbInformation,"Libera Processo.....Décio"
    End if
    WScript.Quit"
    Anexos
    Arquivo ACCDB formato de banco de dados não reconhecido Access 2016 Attachmentdb e imagem da mensagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (575 Kb) Baixado 6 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7249
    Registrado : 05/11/2009

    Arquivo ACCDB formato de banco de dados não reconhecido Access 2016 Empty Re: Arquivo ACCDB formato de banco de dados não reconhecido Access 2016

    Mensagem  Alexandre Neves em 31/7/2018, 21:34

    Boa noite,
    Respeite as regras do fórum. Adeqúe o título


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 27/5/2019, 02:51