[Resolvido]Executar modulos de forma temporizada...

Mestres existe alguma maneira de executar diferentes modulos a uma determinada hora programada?

Ou seja, tenho varios modulos que gostaria que fossem executados automaticamente a uma determinada hora...

Desde já muito obrigado

Boa tarde, hugo

Tente colocar num formulário aberto, timer com código para verificar se está na hora de executar. Se estiver na hora, executa.

Exemplo

If now=... Then
call NomeProcedimento
End if

Cumprimentos,

Alexandre Obrigado pela dica vou testar durante o dia de hoje e depois coloco aqui o resultado ...

Só para lembrar: o formulário precisa ficar aberto constantemente ou então deve usar um formulário oculto. E deve definir o intervalo do cronômetro por segundos ou minutos conforme queira.

Alexandre e Criquio desculpem mas ainda so novato em VB. tenho varios modulos construidos e queria que esses modulos fossem executados a uma determinada hora sem intervençao do utilizador... Se bem percebi tenho de construir um novo formulario que tem de estar sempre aberto ( em modo oculto ou nao ) e o formulario tem que ter o seguinte codigo na funçao (no actual:[Procedimento de acontecimento]) o acontecimento tem de ter o codigo :

Private Sub Form_Current()
If now= 23:00 (hora que eu quero que sejam executados os modulos)
Then
Call NomeProcedimento (modulos ;1,2,3,4)
End If

End Sub

No intervalo do cronometro o que é que eu devo colocar ? (tendo em conta que eu so quero que os modulos sejam executados 1 vez às 23 horas)

Muito obrigado

O código deve ficar no evento "No timer"

If Time = 11:00 PM Then
Call NomeDoModulo1
Call NomeDoModulo2
Call NomeDoModulo3
Call NomeDoModulo4
End If

Coloque o intervalo do cronômetro em 1000 para verificação segundo a segundo ou em 60000 para verificação minuto a minuto.
Não sei como são os módulos. Pode ser necessário incluir mais alguma instrução na frente do nome do módulo dependendo dele, como por exemplo

Call NomeDoModulo1(True)

ok mestre criquio vou testar e depois coloco aqui o resultado ...

Obrigado e abraço

Me esqueci de um detalhe: data e hora em vba precisa ficar entre # e #

If Time = #11:00:00 PM# Then
Call NomeDoModulo1
Call NomeDoModulo2
Call NomeDoModulo3
Call NomeDoModulo4
End If

Melhor o Intervalo do cronômetro ser segundo a segundo para não correr o risco do minuto cair em algo maior ou menor que o minuto redondo. Por exemplo, cair em 11:00:02

Criquio desculpe responder só agora fiz tudo com o codigo certinho tal como me enviou mas nao consegui.
Penso que se calhar o problema esta na "acção" call nome do module (module1), experimentei com (true) à frente do modulo e não funcionou. O codigo que inclui o module1 é o seguinte:

Public Sub Substitui()
'By JPaulo ® Maximo Access
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fld As DAO.Field
Dim strSQL As String

Set db = CurrentDb()

strSQL = "SELECT * FROM Geral_Lms"

Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

rst.MoveFirst
Do Until rst.EOF
For Each fld In rst.Fields

If Left(fld.Value, 5) = "MGR6W" Then
rst.Edit
fld.Value = Left(fld.Value, 5) & "Graduate 1.6"
rst.Update
End If

Next fld
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub

Basicamente os restantes modulos que eu criei sao muito parecidos a este. No formulario oculto segui todas as suas instruções e para testar apenas criei para chamar e executar o module1
If Time = #11:00:00 PM# Then
Call Module1 (true)
End if

Abraço

Olha só, para chamar a sub acima, você colocaria assim:

Call Substitui

Existem mesmo quatro subs com esses nomes que você colocou aqui? Module1... Module4?
O nome da sub é o que vem depois de Public Sub. No caso da sub que você postou, é Substitui

Ja percebi o meu erro. Desculpa mas ainda sou mesmo muito novato com o VB...
Muito Obrigado criquio pela paciencia
Abraço

Valeu pelo retorno. Precisando, apite.