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

    [Resolvido]backup em pen drive

    Compartilhe

    fernando.r.z
    Novato
    Novato

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 30/05/2016

    [Resolvido]backup em pen drive

    Mensagem  fernando.r.z em 20/4/2017, 14:27

    Boa tarde
    gostaria de uma ajuda. o 
    tenho um sistema simples e não uso em rede, porem as vezes tiro uma copia em um pen driver e levo pra casa. e ao outro dia tenho que apagar o do pc e copiar o do pen driver que foi modificado. 
    gostaria de saber se tem a possibilidade de fazer um botão que ao clicar ele atualizasse os dados do sistema que esta no meu pen driver para o pc, ou ao contraio o sistema atualiza-se os dados que estão em meu pc para o pen driver. 
    agradeço desde já. uma boa tarde a todos!

    fsmfile
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/12/2015

    Re: [Resolvido]backup em pen drive

    Mensagem  fsmfile em 21/4/2017, 13:00

    Fernando,

    Veja se consegue trabalhar este código, pois com certeza ele serve pra você:

    Crie um módulo com este código:
    Código:

    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:\caminho onde será feito o backup"

    'Nome da pasta e nome de inicio para o banco de backup

    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

    CopiaSegura.CopyFile CurrentProject.Path & "\nomedobancodedados", Caminho & Format(Now, "_ddmmyyyy") & ".accde"

    End Function

    Depois chame a função BackBD() onde quiser que ele irá fazer uma cópia do seu Banco de dados.
    avatar
    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]backup em pen drive

    Mensagem  Pablo Neruda em 29/4/2017, 12:20

    Fernando boa tarde!

    Tenho um cliente que trabalha com emissão de recibos de doações, as vezes não dá tempo e ele leva trabalho para casa. A solução mais fácil que dei a ele foi colocar a base de dados em uma pasta do google driver onde ele não pode fazer a digitação simultânea mas pode fazer em locais diferentes bastando observar a sincronização da base do escritório com a da casa. Tem funcionado bem até hoje...


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............

    fernando.r.z
    Novato
    Novato

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 30/05/2016

    Re: [Resolvido]backup em pen drive

    Mensagem  fernando.r.z em 11/6/2017, 18:32

    Boa noite
    deu certo
    Obrigado!!!

      Data/hora atual: 22/10/2017, 16:45