Pause for random amount of time in loop without Access becoming unresponsive

[Dougmeister]

Looping through all records in a table, I would like to pause for a random amount of time between each record.



Currently, I am generating a random number and calling a function that looks like this:

Public Sub SleepVBA(Seconds)

Dim sSeconds

sSeconds = Seconds * 1000

Sleep sSeconds '1000 implements a 1 second delay
End Sub

But the program becomes unresponsive. How can I have this time delay but still see updates that I am writing to a text box on the main form?

Thank you.

Edit: I found this... is this the best solution?

https://www.fmsinc.com/microsoftacce...idDoEvents.asp

[Micron]

I put this in a standard module so that it can be called from any procedure.

Function Pause(intSecs As Integer)
Dim sngStart As Single

sngStart = Timer
Do While Timer < sngStart + intSecs
Loop

End Function

You can change intSecs to e.g. sngSecs As Single and get pauses that are fractions of a second.

[isladogs]

There are at least three common methods for introducing a pause.
As well as the Sleep API, you can use DoEvents or Idle DbRefreshCache.
Each approach has advantages and diadvantages.

i usually use DoEvents

To help decide which is best for you, see my article Speed Comparison Tests 3 - Mendip Data Systems