MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    negaodacelia
    Novato
    Novato

    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

    Mensagem  negaodacelia em Dom 08 Dez 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.

    Nivaldo
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 08/12/2009

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

    Mensagem  Nivaldo em Dom 08 Dez 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.

    negaodacelia
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  negaodacelia em Seg 09 Dez 2013, 12:19

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

    Nivaldo
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 08/12/2009

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

    Mensagem  Nivaldo em Ter 10 Dez 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.

    negaodacelia
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  negaodacelia em Ter 10 Dez 2013, 19:09

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

      Data/hora atual: Qua 07 Dez 2016, 20:14