MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

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

    [Resolvido]backup em pen drive

    avatar
    fernando.r.z
    Novato
    Novato

    Respeito às Regras 50%

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

    [Resolvido]backup em pen drive Empty [Resolvido]backup em pen drive

    Mensagem  fernando.r.z 20/4/2017, 19: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!
    avatar
    fsmfile
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]backup em pen drive Empty Re: [Resolvido]backup em pen drive

    Mensagem  fsmfile 21/4/2017, 18: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.
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]backup em pen drive Empty Re: [Resolvido]backup em pen drive

    Mensagem  Pablo Neruda 29/4/2017, 17: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...


    .................................................................................
    [Resolvido]backup em pen drive Elohim Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............
    avatar
    fernando.r.z
    Novato
    Novato

    Respeito às Regras 50%

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

    [Resolvido]backup em pen drive Empty Re: [Resolvido]backup em pen drive

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

    Boa noite
    deu certo
    Obrigado!!!

      Data/hora atual: 4/3/2021, 06:47