MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvidos]Backup automatico ao fechar do formulario Principal

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Gilberto Rocha em 11/2/2010, 12:47

    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?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  JPaulo em 11/2/2010, 13:00

    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")


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

    [Resolvidos]Backup automatico ao fechar do formulario Principal Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]Backup automatico ao fechar do formulario Principal Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]Backup automatico ao fechar do formulario Principal Folder_announce_new Instruções SQL como utilizar...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Gilberto Rocha em 11/2/2010, 13:17

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

    Obrigado!!! Laughing
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  JPaulo em 11/2/2010, 13:19

    Obrigado pelo retorno.

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


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

    [Resolvidos]Backup automatico ao fechar do formulario Principal Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]Backup automatico ao fechar do formulario Principal Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]Backup automatico ao fechar do formulario Principal Folder_announce_new Instruções SQL como utilizar...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Gilberto Rocha em 11/2/2010, 15:48

    Ixi, é mesmo, melhor do jeito que estava substituindo o anterior!!!
    Valeu Amigo!!! Shocked
    avatar
    Wallace Lima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 29/04/2014

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Wallace Lima em 7/5/2014, 17:29

    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.
    avatar
    faellekshow2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 28/09/2011

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  faellekshow2 em 23/5/2014, 03:58

    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?
    avatar
    vaner
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 26/04/2014

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  vaner em 5/10/2014, 21:13

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 324
    Registrado : 12/03/2011

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  sardao em 24/11/2014, 18:46

    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?
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Noobezinho em 24/11/2014, 19:51

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

    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
    fsouza32
    fsouza32
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 22/01/2013

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  fsouza32 em 20/1/2016, 20:41

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

    Muito obrigado cheers
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Noobezinho em 21/1/2016, 07:12

    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

    fsouza32
    fsouza32
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 22/01/2013

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  fsouza32 em 21/1/2016, 10:53

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 22/01/2013

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  fsouza32 em 21/1/2016, 18:08

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

    Obrigado
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Noobezinho em 21/1/2016, 18:49

    O caminho de rede ou UNC é:

    \\NomeServidor\pasta\subpastaSehouver\BE.accdb

    [ ]'a
    fsouza32
    fsouza32
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 22/01/2013

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  fsouza32 em 22/1/2016, 10:40

    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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Noobezinho em 22/1/2016, 11:26

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


    Última edição por Noobezinho em 22/1/2016, 11:30, editado 2 vez(es)
    fsouza32
    fsouza32
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 22/01/2013

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  fsouza32 em 22/1/2016, 11:28

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Noobezinho em 22/1/2016, 11:29

    Editei o post anterior dê uma olhada
    fsouza32
    fsouza32
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 22/01/2013

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  fsouza32 em 22/1/2016, 12:02

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

    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!
    avatar
    FlavioLima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 14/02/2016

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  FlavioLima em 25/4/2016, 20:46

    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á!
    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 07/02/2018

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  alozs em 13/5/2019, 16:50

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 22/01/2013

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  fsouza32 em 13/5/2019, 17:15


    Conteúdo patrocinado

    [Resolvidos]Backup automatico ao fechar do formulario Principal Empty Re: [Resolvidos]Backup automatico ao fechar do formulario Principal

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 12/12/2019, 00:56