MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvidos]Backup automatico ao fechar do formulario Principal

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    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 : 1028
    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 : 1028
    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 : 13
    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 : 328
    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 : 115
    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 : 115
    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 : 115
    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 : 115
    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 : 115
    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 : 115
    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 : 107
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 261
    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 : 115
    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

    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

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

    Mensagem  AMarcos em 13/4/2020, 16:54

    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
    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

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

    Mensagem  AMarcos em 26/4/2020, 01:08

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

    Tá redondo agora.

    Att,

    AMarcos


      Data/hora atual: 5/7/2020, 14:45