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

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.

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.

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

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.

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