Timer Event freezing Access

[MitchJP]

All:

I have this code in Access, which starts a timer, and after 15 seconds, the loop ends and the rest of the code is processed. Problem, the program locks up while this is looping... Any suggestions?

........
Dim PauseTime, Start

PauseTime = 15 ' Set duration.
Start = Timer ' Set start time.

Do While Timer < Start + PauseTime
Loop

DoCmd.RunMacro "mcrCloseForm"
........

After 15 seconds, the loop ends and the rest of the code is processed (runmacro). This timer allows me to delay the running of the macro by 15 seconds, but it locks up instead and I can't work during the 15 seconds.


Thanks!
MitchJP

 

[PHV]

Have you tried this ?
Do While Timer < Start + PauseTime
DoEvents
Loop

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[MitchJP]

PHV,

I tried DoEvents and it seems to have fixed the problem! Thanks for the help!!

MitchJP