MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


+7
douglas.icm
Dilson
lupe
criquio
Pablo Neruda
JPaulo
STELLAMARIS
11 participantes

    [Resolvido]Backup - Manter copia anterior

    avatar
    STELLAMARIS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Backup - Manter copia anterior

    Mensagem  STELLAMARIS 28/9/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  JPaulo 28/9/2010, 07:50

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Backup - Manter copia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Backup - Manter copia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Backup - Manter copia anterior Folder_announce_new Instruções SQL como utilizar...
    avatar
    STELLAMARIS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS 29/9/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
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Pablo Neruda 29/9/2010, 17:06

    Oi boa tarde!

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS 29/9/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
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Cobian

    Mensagem  Pablo Neruda 30/9/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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  criquio 30/9/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: www.vcssistemas.com.br

    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.

    avatar
    STELLAMARIS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS 30/9/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  JPaulo 30/9/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 30/9/2010, 14:12, editado 1 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Backup - Manter copia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Backup - Manter copia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Backup - Manter copia anterior Folder_announce_new Instruções SQL como utilizar...

    Marlo Sandrei e Leandrotj gostam desta mensagem

    avatar
    STELLAMARIS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS 30/9/2010, 13:31

    JPaulo
    bom dia

    obrigada por atender-me.

    Estou fazendo os testes e já te falo
    avatar
    STELLAMARIS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS 30/9/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  JPaulo 30/9/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.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Backup - Manter copia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Backup - Manter copia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Backup - Manter copia anterior Folder_announce_new Instruções SQL como utilizar...
    avatar
    STELLAMARIS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS 30/9/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
    avatar
    STELLAMARIS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  STELLAMARIS 1/10/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  JPaulo 1/10/2010, 21:12

    Obrigado pelo retorno e rapidas melhoras.

    Bom final de semana.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Backup - Manter copia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Backup - Manter copia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Backup - Manter copia anterior Folder_announce_new Instruções SQL como utilizar...
    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Backup JPaulo

    Mensagem  lupe 26/11/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
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Dilson 27/11/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
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  lupe 27/11/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
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Dilson 28/11/2010, 14:26

    Valeu, o fórum agradece,

    Precisando retorne ao maximo.

    falow
    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  lupe 3/12/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
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Dilson 3/12/2010, 11:05

    Roni,

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

    Bom final de semana para você também.
    avatar
    douglas.icm
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Sobre Fazer Backup Automático

    Mensagem  douglas.icm 29/10/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!
    avatar
    Edelson Vieira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Edelson Vieira 1/11/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.
    avatar
    joseloi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 31/01/2017

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  joseloi 17/11/2017, 14:40

    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?
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  bigfill 17/11/2017, 15:17

    Boa tarde!

    Poste o seu código para analisarmos.

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  bigfill 17/11/2017, 15:20

    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
    avatar
    joseloi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 31/01/2017

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  joseloi 17/11/2017, 15:45

    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
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  bigfill 17/11/2017, 17:21

    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
    Anexos
    [Resolvido]Backup - Manter copia anterior AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 59 vez(es)
    avatar
    joseloi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 31/01/2017

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  joseloi 17/11/2017, 17:56

    Funcionou! Muito obrigado.
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  bigfill 17/11/2017, 18:27

    joseloi, Obrigado pelo retorno o fórum agradece. cheers
    avatar
    maluco_sergio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 09/11/2016

    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  maluco_sergio 9/1/2018, 23:10

    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.

    Conteúdo patrocinado


    [Resolvido]Backup - Manter copia anterior Empty Re: [Resolvido]Backup - Manter copia anterior

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 20:31