Nelis1
Gebruiker
- Lid geworden
- 30 okt 2017
- Berichten
- 169
bijna vakantietijd en ik wil een klein grapje uithalen - op het internet krijg ik het niet in de gewenste vorm gevonden maar ik wil eigenlijk
dat er in een rapport een wachttijd van 10 seconden komt te zitten na elke handeling.... had al onderstaande gevonden maar dat werkt toch niet....
mocht iemand deze grap willen ondersteunen dan hoor ik het graag
Sub whatever()
Dim time1, time2
time1 = Now
time2 = Now + TimeValue("0:02:01")
Do Until time1 >= time2
DoEvents
time1 = Now()
Loop
End Sub
dat er in een rapport een wachttijd van 10 seconden komt te zitten na elke handeling.... had al onderstaande gevonden maar dat werkt toch niet....
mocht iemand deze grap willen ondersteunen dan hoor ik het graag
Sub whatever()
Dim time1, time2
time1 = Now
time2 = Now + TimeValue("0:02:01")
Do Until time1 >= time2
DoEvents
time1 = Now()
Loop
End Sub