[Resolvido]Fazer Backup do Banco de dados

Boa tarde!
Faço backup do banco de dados utilizando Arquivo > Salvar e Publicar > Fazer Backup do Banco de Dados, clico em salvar como e escolho a pasta onde desejo salvar. Preciso realizar essa rotina utilizando um botão. Alguém poderia me ajudar?

Boa tarde

Já procurou aqui no Forum ?

Está por ordem alfabética.

https://www.maximoaccess.com/t11-102-codigos-vba-para-access

Bom dia Assis!

Tentei esse: Foi o que melhor entendi.

Function BackupDireto()
'Elaborado por JPaulo 2008-03-21
   Dim xs As Object
   Dim PathInicial As String, PathFinal As String
   PathInicial = CurrentProject.Path
   PathFinal = "D:\SysKarinne\Backup" 'Letra do Drive e pasta
   Set xs = CreateObject("Scripting.FileSystemObject")
   MkDir "D:\SysKarinne\Backup"
   xs.CopyFile PathInicial & "\" & "SysKarinne.accdb", PathFinal & "\" & "SysKarinne.accdb"
   Set xs = Nothing
End Function

Dá o erro:
Erro em tempo de execução ´75´:
Erro de acesso a caminho/arquivo

O depurador evidencia a linha:  MkDir "D:\SysKarinne\Backup"
Já conferi o caminho e está certinho.

Os outros também não funfaram.

Onde estou errando?

Edelson

Tem de marcar esta referencia que está a azul

Boa tarde Assis!

Eu já tinha marcado. Dá uma olhada no meu código e vê se tem algo errado por favor.

Boa tarde Assis!
Removi a linha que estava dando erro e funcionou, porém ao criar novo backup o anterior é sobreposto. Teria como gerar o backup mantendo o anterior?

a quem interessar este é um senhor Backup
Cobian Backup 11

abraço Nogaro

Nogaro
Aonde está o exemplo.

Amigo Assis!

Baixei o código do amigo JPaulo e deu certinho. Obrigado pela ajuda. Acho que o Cobian Backup 11 que o amigo Nogaro se refere é um programa.

http://dl.dropbox.com/u/771097/Marcos_BackupBanco.mdb