MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Backup automático do Banco de Dados - via VBA ao encerrar programa

    Compartilhe

    AlbertoG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 18/01/2015

    [Resolvido]Backup automático do Banco de Dados - via VBA ao encerrar programa

    Mensagem  AlbertoG em Qua 12 Ago 2015, 18:57

    Olá! Tenho um banco de dados e faço a o backup manualmente recobrindo o arquivo na pasta específica. Bom, posso imaginar que no campo da programação, deve haver uma maneira mais prática de fazer esse procedimento automaticamente ao encerrar o access, poupando tempo e trabalho. Desde já, agradeço a quem possa ajudar.


    Última edição por AlbertoG em Sab 15 Ago 2015, 12:34, editado 1 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Backup automático do Banco de Dados - via VBA ao encerrar programa

    Mensagem  Silvio em Qua 12 Ago 2015, 19:24

    Boas....

    Veja a primeira mensagem, com os códigos, no link abaixo.

    [Você precisa estar registrado e conectado para ver este link.]

    É apenas adaptar as tuas necessidades.

    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    AlbertoG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 18/01/2015

    Re: [Resolvido]Backup automático do Banco de Dados - via VBA ao encerrar programa

    Mensagem  AlbertoG em Sab 15 Ago 2015, 13:29

    Olá!
    Eu coloquei o código do link que foi apresentado e não consegui êxito. Minha expectativa é: ao fechar o access, que se faça o backup do banco inteiro. O caminho do de teste é: D:\BDACSSES\INFOTECH\BACKUP BD

    Obs.: Tenho que colocar o banco dentro da pasta BACKUP BD? ou o código já joga automaticamente?

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Backup automático do Banco de Dados - via VBA ao encerrar programa

    Mensagem  Avelino Sampaio em Sab 15 Ago 2015, 14:18

    Olá!

    veja se esta solução te atende:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    AlbertoG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 18/01/2015

    Re: [Resolvido]Backup automático do Banco de Dados - via VBA ao encerrar programa

    Mensagem  AlbertoG em Sex 21 Ago 2015, 03:01

    Olá! Eu agradeço pelas respostas aqui apresentadas, porém, não consegui ainda uma resposta para a situação informada. Tenho uma banco de dados em uma pasta no computador e quero que o mesmo banco esteja atualizado em um HD externo por exemplo. Como conseguir isso? Como posso apertar em um botão e o banco de dados de backup se tornar atualizado? Obrigado!

    Segue o código que estou estudando: Obs. (Vale lembrar que o banco de dados está num diretório: D:\BDACSSES\INFOTECH ) e o nome do banco é "infotech" e a princípio estou testando uma pasta chamada: Backup BD que está dentro da pasta INFOTECH

    Private Sub Comando138_Click()
    On Error Resume Next
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists("D:\BDACSSES\INFOTECH infotech") Then ' verifica se já existe a pasta
    Else
    MkDir "D:\BDACSSES\INFOTECH infotech" ' se não existir cria
    End If

    Dim CopiaSegura As Object
    Dim Caminho As String
    Dim CopiaBancoTabelas As Object
    Dim CaminhoTabelas As String

    Caminho = "D:\BDACSSES\INFOTECH\BACKUP BD"

    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFile CurrentProject.Path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"


    'Quit acQuitSaveAll

    End Sub

    AlbertoG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 18/01/2015

    Re: [Resolvido]Backup automático do Banco de Dados - via VBA ao encerrar programa

    Mensagem  AlbertoG em Dom 30 Ago 2015, 03:05

    Ok! Venho agradecer as colaborações recebidas aqui neste post, já entendo o problema como resolvido, não via programação pelo vba do access, mas sim, pela utilização de arquivo com extensão .BAT, ou seja, através do bloco de notas, cria-se um arquivo com as seguintes linhas de códigos:

    @ECHO OFF
    ECHO ++++++++++Iniciando Backup+++++++++++++++
    ECHO.
    XCOPY /D /E /C /K /O /S /Y /I "D:\Pasta Origem" "D:\Pasta Destino"
    ECHO.
    ECHO ++++++++++++Fim+++++++++++
    PAUSE


    Salva-se o aquivo por exemplo: AtivarBackup.bat

    Depois é só utilizar o gerenciador de tarefas do windows para o procedimento automático.

    Fonte:
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 08 Dez 2016, 23:55