Pausing between code

Hi there,

Can anybody tell me how to write some code to pause in between other code.

I have written some code to open a word document, merges with 100 records (takes 4 minutes) then opens another word document, merges again etc etc. I have 15 word documents and if the code run one after another, I am getting all sorts of errors through word.

I want to be able to pause: 50000 (i.e. 5 minutes) then run next code.

Any ideas would be appreciated.

Smilla

Try using this function (Code by G.Hudson)
[vba]
Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Err_Pause


Dim PauseTime As Variant, Start As Variant

PauseTime = NumberOfSeconds
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop

Exit_Pause:
Exit Function

Err_Pause:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Pause

End Function

[/vba]
and call it like...
Pause (5)
for a five second pause.

HTH

[vba]

Application.Wait Now + TimeSerial(0, 5, 0)

[/vba]
Also check out Application.OnTime

{Edit} I didn't realize this was for Access. Disregard.

Quote:

---

Originally Posted by DRJ

[vba]

Application.Wait Now + TimeSerial(0, 5, 0)

[/vba]

Also check out Application.OnTime

---

DRJ, they are Excel methods and aren't available in Access.

Regards,
Daniel

Or you can try this Sleep API:

Code:

---

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilleseconds As Long)

---

Then call it like this

Code:

---

Sleep 5000

---

HTH, Thanks.