[Resolvido]Backup - Manter copia anterior

Olá Pessoal,
Boa noite,

Encontrei aqui no Forum este exemplo que se aplica perfeitamente ao que preciso, e funcionou maravilhosamente no Access 2007.
Porém gostaria de saber como posso alterar este procedimento que foi elaborado pelo nosso amigo JPAULO em 2006, para que eu pudesse ter mais de uma copia de backup, ou seja, manter o backup anterior, porque desta forma o procedimento apaga o anterior e grava o atual. Não sei se é possivel pelo menos manter sempre as 3 ultimas versões de backup, até para não sobrecarregar a máquina.

Private Sub Form_Close()
'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.
On Error Resume Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("c:\Backup Condominio") Then ' verifica se já existe a pasta
Else
MkDir "c:\Backup Condominio" ' se não existir cria
End If

Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String

Caminho = "c:\Backup Condominio\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"


Quit acQuitSaveAll
End Sub


muito obrigada
Stella Maris

Você quer 3 copias por dia, 3 por mês ou 3 por ano ?

JPaulo

Desculpe a demora em responder, minha maquina deu problema rsssss

Eu preciso das 3 últimas copias, independente de ser diaria, mensal ou anual.

Vou solicitar ao usuario para fazer o backup diário ao termino do expediente, mas se o usuário esquecer num dia no outro com certeza ele fará. Pois criei um menu onde terá os botões ENCERRAR e BACKUP.

Agora se tiveres outra sugestão, ficaria muito grat,
obrigada

Stella

Oi boa tarde!

Muito interessante o código... Vocês ja usaram o cobian na execução dos backups?

Pablo
boa tarde

Este código aprendi com o JPAulo.
Eu não conheço "cobian na execução dos backups"
Sou meio leiga no assunto
Stella

Stella boa noite!

Procure no google por: COBIAN é um programa free que efetua backup de arquivos de acordo com uma programação criada pelo usuário, você pode configurar a forma como o back ups serão efetuados, se sobrescritos, se ficará mais de uma cópia do back up, etc... Ele até envia o log dos backups por e-mail. Tenho ele rodando em alguns servidores que dou suporte e é muito bom...

Olha, eu particurlamente prefiro fazer todo o serviço no Access mesmo para não depender de outros aplicativos, uma vez que no próprio Access podemos ter todas as funções que desejarmos.
É só uma questão de preferência mesmo.

Pablo / Criquio

Obrigada por sua dica, irei pesquisar na internet, inclusive porque gosto de aprender.

Mas também sou da mesma opiniao do CRIQUIO, porque fico com receio de usar outro aplicativo que não conheço e não saber manipular junto ao cliente em caso de problemas. É uma situação não muito agradavel, sei que compreendes. Mas valeu muito por sua dica, não deixarei de pesquisar.

um abraço aos dois e muito grata,

Stella

Bom Dia Stella;

Delete o outro código e cole este;


Private Sub Form_Close()
'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.
'Revisão em 30-09-2010, para manter os 3 ultimos backups do dia.
On Error Resume Next

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("c:\Backup Condominio") Then ' verifica se já existe a pasta
Else
MkDir "c:\Backup Condominio" 'se não existir cria
End If

Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Dim x, y, z As String

Caminho = "c:\Backup Condominio\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

x = Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
y = Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
z = Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"


If Not (Len(Dir(x, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
ElseIf Not (Len(Dir(y, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
Else
Kill z
CopiaSegura.CopyFile CurrentProject.Path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"
End If
Quit acQuitSaveAll
End Sub

JPaulo
bom dia

obrigada por atender-me.

Estou fazendo os testes e já te falo

JPaulo,

Foram criados os 3 backups, porém o backup1 e 2 foram os primeiros, quando faço novamente o backup3 ele altera o anterior, é isso mesmo?
ou será que só posso fazer 3 backups por dia para começar alterar o 1, 2 e 3 no dia seguinte?
Se for isso tudo bem, entendo como resolvido, mas se no outro dia continuar alterando apenas o backup3 ai não terá sentido ter o backup1 e 2, concordas?

Estou indo ao médico agora, a tarde a gente se fala ok

um grande abraço

Stella

Stellinha espero que esteja tudo bem com a sua saude.

Copie novamente o codigo acima, porque eu tive de corrigir umas linhas.

Esta alteração ao código, faz o seguinte.

Backup_01102010_1.accdb
Backup_01102010_2.accdb
Backup_01102010_3.accdb

No proprio dia, se fizer 3 vezes backup ele guarda os 3, se fizer mais de 3 ele guarda os primeiros 2 e vai atualizando o terceiro.

Se você fizer o teste de mudar a data do seu HD, vai ver que guarda sempre os 3 backups por dia.

Se não quiser guardar os 3 backups por dia, retorne que eu altero.

JPaulo,

Cheguei a pouco do médico, estou com uma calcificação no ombro direito, dói muito, mas vou ter que fazer fisioterapia, o ruim disso que me impede de trabalhar no computador por muito tempo, um saco !

Alterei o código como me falou e funcionou perfeitamente, aliás Você é um espetaculo !

Fiquei na duvida de manter os 3 backups, prefiro consultar meu cliente, porque ele que me pediu isso ! Por mim teria apenas 1 backup, baseado no seu codigo anterior, portanto só amanha depois das 10 horas poderei ter essa resposta ok, ai te falo.

obrigada por me ajudar, você é uma amor.

um grande abraço

Stella Maris

JPaulo,

Conversei com meu cliente e ele prefere ter sempre 3 backups por dia, ele mesmo deletará aqueles que ele não quiser mais.

Portanto meu amigo, então ficou tudo funcionando perfeitamente.

mais uma vez muito obrigada,

um grande abraço e bom final de semana

Stella

Obrigado pelo retorno e rapidas melhoras.

Bom final de semana.

JPaulo,

Bom dia!

Eu não consegui gerar o backup utilizando o código abaixo desenvolvido por vc,
acredito que eu preciso fazer alguma adaptação porque qdo eu testei foi criado a pasta, mas não criou o arquivo backup. Enfim, vc tem um exemplo de banco de dados
com esse código. Como sou iniciante em access, um exemplo facilitaria mto pra mim.

Desde já, agradeço!!!

Private Sub Form_Close()
'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.
'Revisão em 30-09-2010, para manter os 3 ultimos backups do dia.
On Error Resume Next

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("c:\Backup Condominio") Then ' verifica se já existe a pasta
Else
MkDir "c:\Backup Condominio" 'se não existir cria
End If

Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Dim x, y, z As String

Caminho = "c:\Backup Condominio\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

x = Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
y = Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
z = Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"


If Not (Len(Dir(x, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
ElseIf Not (Len(Dir(y, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
Else
Kill z
CopiaSegura.CopyFile CurrentProject.Path & "\CONDO com RIBBON.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"
End If
Quit acQuitSaveAll
End Sub

Olá Roni, seja bem vindo ao fórum.

Amigo aqui abaixo o link que dá acesso ao banco de dados de exemplo elaborado pelo JPaulo:

Backup em banco de dados.

Siga as orientações escritas na tela e faça um teste.

Dilson, obrigado!

Vi agora o seu recado, vou baixar o exemplo do JPaulo e fazer o teste.

Valeu pela atenção, amigo!

Valeu, o fórum agradece,

Precisando retorne ao maximo.

falow

Bom dia!

Dilson

Baixei o exemplo do JPaulo e fiz o teste...funcionou perfeitamente, alias
que ótimo trabalho do JPaulo. Porém, encontrei aqui mesmo no fórum outro
exemplo, o qual acredito que atenderá melhor as minhas necessidades.
Estou tentando adapta-lo no meu sistema. Caso eu encontre alguma dificuldade
vou me sentir a vontade para pedir a ajuda de vocês, amigos do fórum...blz!

Pra você e todos os amigos do fórum...
Um excelente final de semana!!!

Roni,

Sempre venha ao maximo e sinta-se sempre plenamente a vontade.

Bom final de semana para você também.

Boa tarde,

Não consegui implementar esse código acima...
Em que parte (aonde) devo incluir esse código?

Tentei criar botão e incluir
Tentei incluir construindo evento no formulario principal

Não entendi, alguem pode me explicar de forma mais simples, pois sou leigo!

Estou enviando o link do meu arquivo, se alguem puder me ajudar e tiver alguma idéia para melhorar,a gradeço!
SCPH.accdb

Abraços,

Att. Douglas!

Amigo JPaulo!

Qual o objetivo em criar as variáveis:

Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String

Não percebo o uso das mesmas no código. Desculpe, pois sou iniciante em Access e programação e gostaria de entender onde essas variáveis estão sendo utilizadas.

Boa Tarde,
Sou leigo no assunto, usei o código ele cria a pasta mas não salva o backup dentro dela, podem me ajudar?

Boa tarde!

Poste o seu código para analisarmos.

fiz um teste aqui e funcionou, so tem que alterar alguns locais do código.

joseloi, eu fiz as seguintes alterações

Código:

Private Sub Form_Close()
'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.
'Revisão em 30-09-2010, para manter os 3 ultimos backups do dia.
On Error Resume Next

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(CurrentProject.Path & "\Backup") Then ' verifica se já existe a pasta
Else
MkDir CurrentProject.Path & "\Backup" 'se não existir cria
End If

Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Dim x, y, z As String

Caminho = CurrentProject.Path & "\Backup\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

x = Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
y = Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
z = Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"


If Not (Len(Dir(x, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\Caixa de Listagem para Listar PDF.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
ElseIf Not (Len(Dir(y, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\Caixa de Listagem para Listar PDF.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
Else
Kill z
CopiaSegura.CopyFile CurrentProject.Path & "\Caixa de Listagem para Listar PDF.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"
End If
Quit acQuitSaveAll
End Sub

Devo esta fazendo algo errado, pode me ajudar? Pois esta criando a pasta mas não esta criando o arquivo de backup, meu código ficou assim.
Private Sub Form_Close()

'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.
'Revisão em 30-09-2010, para manter os 3 ultimos backups do dia.
On Error Resume Next

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(CurrentProject.Path & "X:\PUBLICA\SISTEMA ECOCITRUS\Backup SGI") Then ' verifica se já existe a pasta
Else
MkDir CurrentProject.Path & "X:\PUBLICA\SISTEMA ECOCITRUS\Backup SGI" 'se não existir cria
End If

Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Dim x, y, z As String

Caminho = CurrentProject.Path & "X:\PUBLICA\SISTEMA ECOCITRUS" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

x = Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
y = Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
z = Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"


If Not (Len(Dir(x, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\Sistema Ecocitrus.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
ElseIf Not (Len(Dir(y, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\Sistema Ecocitrus", Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
Else
Kill z
CopiaSegura.CopyFile CurrentProject.Path & "\Sistema Ecocitrus", Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"
End If
Quit acQuitSaveAll

End Sub

Testa esse código

Código:

Private Sub Form_Close()

'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.
'Revisão em 30-09-2010, para manter os 3 ultimos backups do dia.
On Error Resume Next

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("X:\PUBLICA\SISTEMA ECOCITRUS\Backup SGI") Then ' verifica se já existe a pasta
Else
MkDir "X:\PUBLICA\SISTEMA ECOCITRUS\Backup SGI" 'se não existir cria
End If

Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Dim x, y, z As String

Caminho = "X:\PUBLICA\SISTEMA ECOCITRUS\Sistema Ecocitrus" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

x = Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
y = Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
z = Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"


If Not (Len(Dir(x, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\Sistema Ecocitrus.accdb", Caminho & Format(Now, "_ddmmyyyy") & "_" & 1 & ".accdb"
ElseIf Not (Len(Dir(y, vbDirectory)) > 0) Then
CopiaSegura.CopyFile CurrentProject.Path & "\Sistema Ecocitrus", Caminho & Format(Now, "_ddmmyyyy") & "_" & 2 & ".accdb"
Else
Kill z
CopiaSegura.CopyFile CurrentProject.Path & "\Sistema Ecocitrus", Caminho & Format(Now, "_ddmmyyyy") & "_" & 3 & ".accdb"
End If
Quit acQuitSaveAll

End Sub

E fiz esse modelo aqui tambem

Funcionou! Muito obrigado.

joseloi, Obrigado pelo retorno o fórum agradece.

Sei que o tópico já está fechado.
Contudo, queria agradecer o código e o ensinamento. Para mim funcionou na perfeição.
Abraço.