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


    [Resolvido]Bakup automatico sem precisar abertar um botao de acao

    avatar
    negaodacelia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 06/08/2013

    [Resolvido]Bakup automatico sem precisar abertar um botao de acao Empty [Resolvido]Bakup automatico sem precisar abertar um botao de acao

    Mensagem  negaodacelia 8/12/2013, 23:04

    Bom pessoal, já achei exemplos de backup aqui no forum, inclusive adaptei um codigo num botao, esse:
    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:\BackMDB\Backup" 'Nome da pasta e nome de inicio para o banco de backup
       Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
       CopiaSegura.CopyFile CurrentProject.path & "\fiasul.accdb", Caminho & Format(Now, "_mmyyyy") & ".accdb"
    End Function


    Que por sinal funciona perfeitamente, porem, o que eu quero é um backup automatico 3x ao dia (06:00 ; 14:00 ; 22:00) sem precisar clicar num botao para fazer isso, que o access (2007) fizesse isso automatico, sozinho quando chegasse esses horarios. Visto que esse sistema não será fechado, ele praticamente ficará aberto 24hrs por dia.
    avatar
    Convidado
    Convidado


    [Resolvido]Bakup automatico sem precisar abertar um botao de acao Empty Re: [Resolvido]Bakup automatico sem precisar abertar um botao de acao

    Mensagem  Convidado 8/12/2013, 23:40

    Boa noite.

    Você poderia usar algo do tipo no evento No Timer do teu formulário:

    Dim HoraBackup as Date

    HoraBackup = Time()

    If HoraBackup = "06:00" Or HoraBackup = "14:00" Or HoraBackup = "22;00" Then
    Call BackBD
    End if

    Obs: No intervalo do cronometro deixa como 1000

    Testa e vê se resolve.

    Nivaldo.
    avatar
    negaodacelia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 06/08/2013

    [Resolvido]Bakup automatico sem precisar abertar um botao de acao Empty Re: [Resolvido]Bakup automatico sem precisar abertar um botao de acao

    Mensagem  negaodacelia 9/12/2013, 12:19

    ta dando erro "tipos incompativeis. fica em amarelo a terceira linha.
    avatar
    Convidado
    Convidado


    [Resolvido]Bakup automatico sem precisar abertar um botao de acao Empty Re: [Resolvido]Bakup automatico sem precisar abertar um botao de acao

    Mensagem  Convidado 10/12/2013, 00:16

    Olhando com mais calma, o ultimo horário na condição (22 horas) está com " ; ". O correto seria " : ".

    Faz a substituição e testa novamente.

    Nivaldo.
    avatar
    negaodacelia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 06/08/2013

    [Resolvido]Bakup automatico sem precisar abertar um botao de acao Empty Re: [Resolvido]Bakup automatico sem precisar abertar um botao de acao

    Mensagem  negaodacelia 10/12/2013, 19:09

    ok. parece que deu certo. continuarei testento cfe passar o tempo

    Conteúdo patrocinado


    [Resolvido]Bakup automatico sem precisar abertar um botao de acao Empty Re: [Resolvido]Bakup automatico sem precisar abertar um botao de acao

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:32