[Resolvido]Escolher Pasta Para Backup Automatico

Bom dia Pessoal

Estou Como uma situação e preciso de ajuda dos mestres aqui do forum, estou usando um código para fazer backup automatico do banco de dados, até aí tudo bem, só que no codigo é informado o caminho a onde o backup deve ser salvo, eu gostaria que esse caminho fosse informado em um formulário, para que a pessoa que fosse usar pudesse escolher onde ela quer salvar o arquivo, se puderem ajudar fico grato. Segue o código que estou usando.

Function BackBD()

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
   Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
   CopiaSegura.CopyFile CurrentProject.Path & "\Gerenciador de Serviços.accdb", Caminho & Format(Now, "ddmmyyyy") & ".accdb"
End Function


Dário

Ola seja bem vindo ao forum;

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = Me.SuaCaixaTextoCaminho & "\Backup_"
   Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
   CopiaSegura.CopyFile CurrentProject.Path & "\Gerenciador de Serviços.accdb", Caminho & Format(Now, "ddmmyyyy") & ".accdb"

Na sua SuaCaixaTextoCaminho, digite por exemplo;

C:\SuaPasta

Olá  JPaulo

Obrigado pela Rápida resposta, funcionou perfeitamente, mas aproveitando, seria possível eu colocar um botão perto dessa caixa de texto para que a pessoal pudesse buscar o caminho no windows explorer e salvar ele na caixa de texto?

Concerteza;

Aguarde por favor que já lhe monto um pequeno exemplo.

Veja se serve;

Quase isso amigo, na Verdade seria assim

Tenho um botão sair do formulário principal, quando clico nele ele fecha o acess e faz o backup automático, então o cominho tem que ficar sempre salvo na caixa de texto, tipo uma configuração, você escolhe onde o backup deve ser salvo e ele sempre vai salvar la até você ir e alterar de novo, acho que talvez precise de uma tabela para isso.

Desde de já grato pela atenção.

Precisamente, basta criar uma tabela e vincular essa caixa de texto.

Veja o simples;

Perfeito Amigo, era exatamente isso que eu precisava, muito obrigado pela ajuda e atenção.

Obrigado pelo retorno o forum agradece.

Olá amigos,
tentei implementar esse código para gerar backup de meu BD, porém está dando o seguinte erro:

Erro em tempo de execução '53':
O arquivo não foi localizado.

E alinha marcada no VBA é a seguinte:

CopiaSegura.CopyFile CurrentProject.Path & "\Gerenciador de Serviços.accdb", Caminho & Format(Now, "ddmmyyyy") & ".accdb"

Saberiam me informar qual o problema?

Roderick


Experimente incluir a parte em verde:

CopiaSegura.CopyFile Application.CurrentProject.Path & "\Gerenciador de Serviços.accdb", Caminho & Format(Now, "ddmmyyyy") & ".accdb"

Uma dica: backup no mesmo computador, não é backup, se o hd danificar, Adeus dados.
Backup se faz em local separado do computador, num pendrive, por exemplo.

Abraços

Noob

Olá Noob,
Vou testar sua sugestão.
Quanto ao backup, no código tem a opção do usuário escolher o local que quer salvar o backup toda a vez que quiser gerá-lo.
Valeu.

Continua dando o mesmo erro.

Roderick

Embora o autor do tópico tenha dado como resolvido. se quiser anexar o bd com a parte que não funfa,
Podemos dar uma olhada.

Noob

Segue:

Mudei o arquivo.
O 1º eu tirei o módulo, sem querer.

Roderick

Backup sendo gerado perfeitamente aqui no meu pc.

Arquivo gerado como você programou: Backup_16062014.accdb

Sugiro, se puder, testar em outro pc.

Depois, creio que deveria ter uma msgbox avisando do sucesso do backup e bloqueio do botão de backup.

Se precisar de algo, grite !!

Noob

Ok.
Vou testar.
Qualquer coisa, aviso.
Valeu.

Muito bom funcionou perfeitamente aqui.