MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Backup - Manter copia anterior

    Compartilhe

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Backup - Manter copia anterior

    Mensagem  STELLAMARIS em Ter 28 Set 2010, 03:50

    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 Idea Embarassed

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  JPaulo em Ter 28 Set 2010, 07:50

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS em Qua 29 Set 2010, 16:13

    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

    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 17/09/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Pablo Neruda em Qua 29 Set 2010, 17:06

    Oi boa tarde!

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

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS em Qua 29 Set 2010, 17:28

    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

    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 17/09/2010

    Cobian

    Mensagem  Pablo Neruda em Qui 30 Set 2010, 02:09

    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...

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  criquio em Qui 30 Set 2010, 02:32

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS em Qui 30 Set 2010, 04:59

    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


    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  JPaulo em Qui 30 Set 2010, 11:54

    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


    Última edição por JPaulo em Qui 30 Set 2010, 14:12, editado 1 vez(es)


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS em Qui 30 Set 2010, 13:31

    JPaulo
    bom dia

    obrigada por atender-me.

    Estou fazendo os testes e já te falo

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS em Qui 30 Set 2010, 13:47

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  JPaulo em Qui 30 Set 2010, 14:24

    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.



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS em Qui 30 Set 2010, 21:55

    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

    STELLAMARIS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 229
    Registrado : 15/03/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS em Sex 01 Out 2010, 18:47

    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 Laughing Razz

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  JPaulo em Sex 01 Out 2010, 21:12

    Obrigado pelo retorno e rapidas melhoras.

    Bom final de semana.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Backup JPaulo

    Mensagem  lupe em Sex 26 Nov 2010, 12:00

    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

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Dilson em Sab 27 Nov 2010, 01:24

    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.

    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  lupe em Sab 27 Nov 2010, 20:22

    Dilson, obrigado!

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

    Valeu pela atenção, amigo!

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Dilson em Dom 28 Nov 2010, 14:26

    Valeu, o fórum agradece,

    Precisando retorne ao maximo.

    falow

    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  lupe em Sex 03 Dez 2010, 10:37

    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!!!

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Dilson em Sex 03 Dez 2010, 11:05

    Roni,

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

    Bom final de semana para você também.

    douglas.icm
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 27/10/2015

    Sobre Fazer Backup Automático

    Mensagem  douglas.icm em Qui 29 Out 2015, 17:35

    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!

    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 22/08/2015

    Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Edelson Vieira em Dom 01 Nov 2015, 17:56

    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.

      Data/hora atual: Sab 10 Dez 2016, 06:53