[Resolvidos]Backup automatico ao fechar do formulario Principal

Olá, bom dia.

Acho que essa dúvida é pertinente a todos.

Nos exemplos de códigos, tem um código com o nome do assunto (Backup automatico ao fechar do formulario Principal)

Fiz assim como esta la:

Public Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' 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
' à MDB da cópia.

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\Backup Sistema ASCP - Controle de Estoque\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\ASCP Controle de Estoque - Modificado.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function

'Ao clicar em sair salva o BD
Private Sub Botão_Sair_Click()
If MsgBox("Deseja Sair do Sistema? ", vbYesNo, "Aviso de Saída") = vbYes Then
Call BackBD
Quit acQuitSaveAll
End If
End Sub

Dúvida, isso salva somente uma vez o BD, tem como salvar toda vez que sair do BD e substituir o backup salvo anteriormente? Assim o backup fica mais seguro.

E como colocar um caminho de rede, para salvar em outro micro?

Amigão repare numa coisa muito importante.

Você está a fazer um backup por dia, ou seja o banco fica com o nome e a data.

Sempre que você chamar essa função, ele substituiu o banco de Backup, ou seja fica atualizado o Backup.

Basta abrir o banco de backup e ver a quantidade de registros.

Se quiser fazer o backup sempre que fechar, terá alterar o formato de Format(Now(), "_ddmmyyyy")

para dia, mes, ano, hora ou dia, mes, ano, hora, minutos, ou dia, mes, ano, hora, minutos, segundos.

Exemplo:
Format(Now(), "_ddmmyyyyhhnnss")

Valeu amigo, é isso mesmo eu não tinha percebido, salva mesmo, mais vou usar a opção dos minutos e tal.

Obrigado!!!

Obrigado pelo retorno.

Veja lá se depois não fica muito pesada a drive onde ficará a pasta de Backup.

Ixi, é mesmo, melhor do jeito que estava substituindo o anterior!!!
Valeu Amigo!!!

Se quem for operar com o sistema, o abrir e fechar poucas vezes ao dia, nõa será problema, pois é só ir fazendo a manutença e deletando os arquivos mais antigos para não ficar ocupando muito espaço.

tentei implementar e não consegui, estou me esforçando para aprender pode me dizer como faz passo a passo, tipo eu tenho o form principal ai coloco um botão lá e dai faço o que é mais ou menos assim?

Estou construindo um banco de dados e eu implementei o código do Gilberto Rocha e está funcionando perfeitamente.

Só uma duvida.

Meu banco access será back and.

Como faço para fazer o backup da parte que armazena os dados?

Boa noite,


Testei o codigo mas esta a dar-me o seguinte erro :

run-time error '76'
path not found

O código que utilizei esta igual ao anterior execpto o caminho.

Código:

Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' 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
' à MDB da cópia.

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "z:\Backup_Frog\vendas" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "Z:\Teams\FIBRIN\Contactos2014.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function

Poderiam ajudar?

Sardao

É erro exatamente no caminho:

path not found  = Caminho não encontrado

Você tem 3 caminhos nesse código:
'Veja na linha número 1 que faltou  uma barra invertida após '\vendas" eu coloquei, está em verde.

1- Caminho = "z:\Backup_Frog\vendas\" 'Nome da pasta e nome de inicio para o banco de backup
2- CurrentProject.Path & "Z:\Teams\FIBRIN\Contactos2014.accdb"
3- Caminho & Format(Now, "_ddmmyyyy") & ".accdb"


Unindo  as duas linhas (3 linha), está escrito isso, fazendo o backup com a data de hoje:

"z:\Backup_Frog\vendas" & " 24112014.accdb"

Se colocar a barra invertida onde está faltando, o Access irá gravar um backup de nome:

" 24112014.accdb"
Porque você não definiu um nome pra o arquivo de backup

Verifique !  

OBSERVAÇÃO: Por experiencia própria;
Usuários não tem paciência de fazer backup ao finalizar o programa. (cansaço, ou louco pra ir embora?)

Sugiro fazê-lo no inicio.

Abraços

Noob

Obrigado, usei o código e adaptei para meu uso e ficou ótimo!
Mais uma duvida, teria como compactar pra ficar menor?

Muito obrigado

Faça isso toda vez que fizer o backup do Back End.

Sim, por mais simples que seja o aplicativo, deve ser dividido em BE/FE.

Backup se faz do BE, onde tem os dados, e num dispositivo FORA do computador,

ex.: Pendrive.

[ ]'s

Sim, meu formulário usa conecta as tabela que ficam em outro accdb (tabelas vinculadas)

Meu BD com as tabelas estão no servidor, como faço para colocar o caminho da rede?

Obrigado

O caminho de rede ou UNC é:

\\NomeServidor\pasta\subpastaSehouver\BE.accdb

[ ]'a

Caro Noobezinho, ficaria como esta abaixo?

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\Backup Sistema ASCP - Controle de Estoque\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\\Servidor\Backup\ASCP Controle de Estoque - Modificado.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function

Assim:

Entenda que o BE está no servidor e não no local do FE, então não precisa do application.path

Já é hora de começar a não usar espaços em nomes de pasta e de arquivos.
Isso vai ainda te dar dores de cabeça no futuro bem próximo.

CopiaSegura.CopyFile  "\\Servidor\Backup\ASCP Controle de Estoque - Modificado.accdb", Caminho & "\" & NomeDoBackup &  "_" & Format(Now, "_ddmmyyyy") & ".accdb"

ok, vou testar assim que chegar no serviço e retorno aqui!
Muito obrigado pela atenção ate o momento!

Editei o post anterior dê uma olhada

Ok, mas em minha aplicação nada tem espaços, sempre deixo pastas com nomes sem espaços, acentos, etc... Lembro de qdo fazia trabalhos em MS-DOS os espaços eram uma terror para fazer as coisa!

O que pus como exemplo é o que está no começo deste post, o meu esta sem espaços!

Vou testar e respondo qui!

Obrigado!

Prezados Colegas e Mestres,

Queria resgatar esse tópico pois minha dúvida tem muito a ver com o que vocês trataram.

https://www.maximoaccess.com/t26311-backup-automatico-pela-rede#186439

Agradeço desde já!

boa tarde a todos, aproveitando o tópico, como fazer para compactar para ficar menor o banco de dados

Amigo, tente este tópico, usei uma vez me ajudou!
https://www.maximoaccess.com/t13779-resolvidocompactar-reparar-x-access-2007

Olá amigos mestres!!!

Encontrei este código de Back-up no repositório do fórum. Adaptei para fazer cópia somente no Back-end, pq me interessa somente os valores das tabelas.
Funcionou redondo!!! Está encaminhando td para a pasta de Back-up em C.

Coloquei no botão Logout para que o Usuário sempre ao sair da seção remota, seja gerado a cópia do Back-end.

Acontece que além da cópia esta criando um arquivo .mdb que ao ser acessado acusa o Error Code 1907. Alguém sabe do por que isso acontece? Provocará algum dano no sistema? O que fazer para evitar o surgimento deste arquivo Database.mdb que indica esse tipo de erro?

O código que uso para chamar a função BackBD é essa:

Private Sub btn_Cancelar_Click()

DoCmd.SetWarnings False
DoCmd.RunSQL "Update Usuarios Set Dt_Saiu= Now() Where Login = getUsuarioAtual()" '
DoCmd.SetWarnings True
If MsgBox("Deseja Sair do Sistema? ", vbYesNo, "Aviso de Saída") = vbYes Then
Call BackBD
Call Shell("shutdown -l", vbHide) 'faz Logout na seção remota
Quit acQuitSaveAll
End If

Aguardo a ajuda!!!


AMarcos

Resolvi o erro separando o comando de Backup do comando de LOGOFF. E fecho o programa com Cmd.Close.

Tá redondo agora.

Att,

AMarcos