Macro - pause for 5 seconds then continue

[coolkake]

I've been trying to get my macro to pause for 5 seconds then continue on but I just figure it out.

Thanks in advance

Kake

 

[PaulBricker]

Well you can try this. Put this function in a module.

Function fnMomentaryPause(timPause As Single)

Dim start

start = Timer ' Set start time.
Do While Timer < start + timPause
DoEvents ' Yield to other processes.
Loop

End Function

Then in your Macro add a line where you want to pause that says

RunCode
and in the Function Name put
fnMomentaryPause(5)

See if that helps.

Paul

 

[mrf1xa]

Forgive me if I'm wrong Paul, but doesn't the Timer use microseconds? So 5 would be almost instantaneous? Nigel
Didn't someone say work is supposed to be fun? They didn't have computers then I guess....

 

[coolkake]

Thanks Paul, works like a charm.
Nigel, value of 5 is seconds.

 

[PaulBricker]

Nigel, I know what you mean. I haven't used this function in a while and set the timer to 1000 when I tested the macro. Then I a while waiting to remember it runs from the system clock, and not the Timer Event so 5 does it just fine.

Paul

 

[Junior1544]

all this talk of making a program wait... I must ask, why...

Are you making a macro that is tring to do some thing that can be done directly in vba, and will not need a wait then??

This is just an off comment and tell me if I'm out of my place, but This sounds odd... I've written just a few app's, including a database that control's other software, and have never needed to make the database wait...

Also, you're using macro's... This is fine... But you get much more flexability out of code... it takes time to learn it, but I've been working with access for 6 months, and do almost every thing in code...

Just some thoughts on this topic...

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.

 

[PaulBricker]

James, I originally used this timer to allow an Outlook App to send an Email. Our school uses FirstClass for it's email. It gives priority to any FirstClass mail in the queue first so I had to allow Outlook some time to get the message sent before I could continue. Pausing the code was one of the things that allowed this to take place (although not with the consistency I had hoped for). Don't know what Kake needs it for but it does have some uses.

Paul

 

[Junior1544]

Well, I guess... But I must suggest you use caution...

I've sent email from code through MS Outlook and Through Lotus notes without the need for any type of waiting... maybe what your doing can be done better using vba to directly control the app...

Just some thoughts...

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.

 

[PaulBricker]

Thanks for the thought. Believe me if it could be done in VB I'd have done it. The only way to manipulate FirstClass Objects is thru RAD. The cost to get the training needed was &quot;right thru the roof&quot; and we scrapped the project anyway so I haven't used the code in quite a while.

Paul