visual - excel vba bucles

Temporizador de bucle en vba(Acceso)

Question

Estoy intentando configurar un temporizador para que se ejecute cada 3 minutos en VBA, para recorrer la tabla de la base de datos de Access y validar los datos. Estoy atascado en el momento de iniciar el temporizador. Escribí este mini script para probar el temporizador:

Function JobNameValidate()
MsgBox ("Hello")
''callAgain.OnTimer
End Function

Function callAgain()
callAgain.TimerInterval = 300000
Forms("HiddenForm1").OnTimer
JobNameValidate
End Function

Funciona bien, sin embargo, se TimerInterval al instante, independientemente de la entrada de TimerInterval . No pude encontrar ninguna documentación útil sobre esto en línea.

Answer 1

Puede establecer la propiedad OnTimer su formulario en una cadena que comience con = seguido de su nombre de función y un par de paréntesis.

Las unidades para TimerInterval son milisegundos. Entonces 3 minutos son 180000 (3 * 60 * 1000).

Function callAgain()
    Forms("HiddenForm1").OnTimer = "=JobNameValidate()"
    Forms("HiddenForm1").TimerInterval = 180000
End Function

No estoy seguro de por qué quieres hacer esto con VBA. Puede establecer ambas propiedades en la hoja de propiedades del formulario. Pero puedes hacerlo con VBA si es necesario.