[Resolvido]controle activex timer

olá, pessoal joia?

Existe algum controle activex que tem a função e roda de tempos em tempo, tipo o evento timer do form em access.

Ex. de 10 em 10 minutos executa uma linha de código.

peguei um procedimento aqui no forum, e me atende em partes.

Public Sub aguardarTempo(argTempo As Long)
'tempo em segundos
Dim momentoInicial As Date
Dim momentoAtual As Date
Dim tempoDecorrido As Long

momentoInicial = Now

Do
momentoAtual = Now
tempoDecorrido = DateDiff("s", momentoInicial, momentoAtual)
Loop Until tempoDecorrido >= argTempo
End Sub

Na verdade esse procedimento aguarda, e depois continua a execução do código.
O problema nesse exemplo, é que fica tudo travado.

Preciso de algum jeito de executar de tempo em tempo. Eu pensei nos controles activex. mas se alguém tiver uma sugestão.

Obrigado.

Defina uma variável para ir guardando o tempo decorrido. Quando atingir o tempo desejado, faz a ação deseja e zera a variável para iniciar novamente. Essa variável deve ser declarada no início do módulo:

Option Compare Database
Option Explicit

Dim Segundos As Integer

E no Timer:

Código:

If Segundos < 10 Then
    Segundos = Segundos + 1
Else
    Segundos = 0
    Ação a ser tomada
End If

Criquio, na verdade eu não estou utilizado o access, e não tenho o evento on time.

Eu uso o PI system Processbook. Como eu criaria o envento timer.
Eu preciso que o sistema rode de 10 minutos um código, e não execute toda vez, e faz a verificação...

Obrigado

Bem, nesse caso seria mais produtivo procurar em um fórum específico para o produto em questão, uma vez que esse é exclusivo para o Access e assuntos relacionados ao mesmo.