wait() ? 1

[evilmousse]

i need a vba wait(millisec) command for access.

doesn't seem to exist.

suggestions?

-g

 

[BobJacksonNCI]

You asked for milliseconds and I don't have an example for that, but if you can use seconds, try the following:

Dim doubStart As Double

DoCmd.Hourglass True
doubStart = Timer
Do While Timer < doubStart + 5 '--5 SECONDS
DoEvents '--OP SYS RUNS OTHERS
Loop
DoCmd.Hourglass False

Beep

HTH,
Bob

 

[jdegeorge]

Bob

I had a similar problem and this worked great. Enjoy the star.

Thanks!

Jim DeGeorge

 

[BobJacksonNCI]

Thanks for the star, Jim!

Don't know why I didn't think about the routine handling milliseconds...

Do While Timer < doubStart + 5 '--5 SECONDS

could just as easily read

Do While Timer < doubStart + .005 '--5 MILLISECONDS

Maybe I know why I didn't think of it - 5 milliseconds wouldn't be much of a pause in a user interface!

 

[evilmousse]

ordinarily, yes.
i happened to have been using access
in a more server-side role, dumb as that
is, to generate website-downloadable reports
in PDF. On the multi-processor server,
the subtasks of outputting to postscript and
then converting to pdf were overlapping,
converting the same ps to pdf twice before
the next ps could be made. A second pause
was sufficient, but 1 report creation per
second added up to an unreasonable length
of time for the export to pdf routine to run,
so i wanted to try to shave that second down
a bit.

yeah, the need for millisecond pauses is unusual,
but not nonexistant.

-g