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]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 : 39
    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)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3705
    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 : 39
    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?
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3431
    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!

    AlbertoG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    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 : 39
    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: Sex 15 Dez 2017, 21:22