Benutzung auf eigene Gefahr ! |
Beschreibung |
Die Funktion wartet eine bestimmte Anzahl von Sekunden, bis sie die Kontrolle an das aufrufende Programm zurückgibt. Durch die Befehle |
VBA-Quelltext |
Public Sub WarteSchleife(Optional WarteZeit As Single) Const MinWarteZeit As Single = 0.2 Dim Zeit As Single Zeit = Timer + IIf(WarteZeit > MinWarteZeit, WarteZeit, MinWarteZeit) If Zeit > 86400 Then Zeit = 86400 While Zeit > Timer DoEvents DBEngine.Idle Wend End Sub |
Argumente der Funktion/Prozedur |
|
Verwendete Variable |
|
Hinweis |
Die Funktion kann alternativ zu den Timer-Ereignissen in Formularen verwendet werden. |