Pauze in Accessmacro

[embetwee]

Hallo,

Ik gebruik in Access 2003 een macro om op regelmatige basis mailberichten te versturen. Waarschijnlijk omdat de commando's elkaar te snel opvolgen (bij handmatig starten van de submacro's werkt alles wel 100%) blijkt dat niet altijd foutloos te gaan. Om die reden wil ik tussen de diverse commando's korte pauzes van enkele seconden inlassen. Is dat in de macro omgeving mogelijk of hoe kan ik anders combineren met de SendObject opdracht. Alvast dank voor het meedenken.

 

[Bartuls]

Dat is eenvoudig als je een beetje kunt programmeren.
Plak de volgende routine in een module:


Public Sub subWait(mAantalSec As Integer)
Dim datStart As Date
Dim datEind As Date

datStart = Now()
datEind = DateAdd("s", mAantalSec, datStart)

Do While DateDiff("s", Now(), datEind) > 0
'Tja, wachten dus niets doen
Loop
End Sub

Je roept de routine als volgt aan als je bijvoorbeeld 12 seconden wilt wachten:

subWait(12)

 

[embetwee]

Dank!

Bedankt, Bartuls! Doet inderdaad precies wat ik graag wilde. Waarschijnlijk inderdaad eenvoudig als je een beetje kunt programmeren, maar je kunt er maar mee zitten...

Vriendelijke groet, Embetwee.