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

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.

Boas....

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

https://www.maximoaccess.com/t885-resolvidobackup-manter-copia-anterior?highlight=backup

É apenas adaptar as tuas necessidades.

Bons estudos.

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?

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

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:
http://juliobattisti.com.br/tutoriais/mauricioborges/sistemabackup001.asp