[Resolvido]Backlup após dividir o Banco de dados

Bom dia pessoal,

Surigiu outra dúvida em relação ao Backup do BD e das TB quando divide-se o banco de dados.

Procurei aqui no fórum e não vi muita informação sobre. Tem alguma forma de fazer o backup automático do BD e as TB direto pelo Access?

Estou usando uma função que o JPaulo expôs para usar. Que faz o backup ao sair ou quando clicar no cmdBackup... Mas e as tabelas?

Por favor se algum de vocês tiverem uma forma além da convencional que manualmente, por favor me passe, para incrementar no Sistema que estou desenvolvendo.

Desde já agradeço pela atenção de todos...

Vocês são uma benção na minha vida...

Olá Francisco

Procure por Backup e irá encontrar vários exemplos de backups.
como AQUI

Normalmente só faz backup do BE, porque você como
desenvolvedor do aplicativo, terá uma ou mais cópias do FE.

Backup é uma forma de se assegurar que teremos os dados
salvos em OUTRO local que não seja o computador para
o caso de acontecer algo com ele, como HD danificado.
Para isso usa-se alguma outra mídia, como um pendrive,
HD externo, etc.
Com isso, entenderá que não se faz backup automático.
Dito isso, se quiser copiar o BE e outra pasta, de preferência,
num outro HD, utilize o Filecopy() do VBA.
Isso é uma simples cópia, não um Backup de segurança
propriamente dito.

[ ]'s

Bom dia grande Nobe,

Obrigado pela dica, pelo exemplo do Companheiro Assis da pra desenrolar.

Na realidade como estou desenvolvendo aplicativos para distribuir, não é só um cliente, então me prevenindo, que ao fechar o aplicativo ou no termino do dia o usuário responsável pelo Sistema da Empresa, faça o backup do BD e Backend fica melhor. Como T.I sempre me preocupei com backup de Bancos de dados e informações nas Empresas que trabalhei...

https://www.maximoaccess.com/t24436-resolvidobackup-do-back_end-com-password-a-partir-do-front_end?highlight=Backup

Gosto de ser cuidadoso, pois não sei o dia de amanhã o que vai acontecer... Fazemos planos e planos, mais quem nos direciona na execução deles é Deus. Provérbios 16.9 e Provérbios 15.22

Nobezinho, consegui resolver com esse código. Fiz os testes e funfou blz!

Fica a dica para outro que estiver com o mesmo problema. Basta chamar a função num botão.

Call BackendBD

Option Explicit

Function BackendBD()
'objectivo: criar (1) uma copia de segurança por mes
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' ao MDB da cópia.

Dim CopiaSegura As Object
Dim caminho As String

If MsgBox(" Deseja fazer Backup das Tabelas?", vbYesNo + vbDefaultButton1 + vbInformation, "sistema") = vbYes Then

caminho = "C:\ConfCX\Backup\JefSoftSC®_ConfCX_Tabelas" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\ConfCX_be.accdb", caminho & Format(Now, "_ddmmyyyy hhnnss") & ".accdb"
MsgBox "Back-up realizado com sucesso!", vbOKOnly + vbInformation, "sistema"
End If
End Function

Value, obrigado. Mais um resolvido. "Vamos pra frente que atrás vem gente"

Que ótimo, meu amigo.
Valeu pelo retorno.

Boa sorte!