[Eine Seite zurück] [Übersicht] [Eine Seite vor]

Benutzung auf eigene Gefahr !
Keine Garantie für garnichts !

Warteschleife in VBA

Sprache / Programm: VBA ab Office 97
Beschreibung

Die Funktion wartet eine bestimmte Anzahl von Sekunden, bis sie die Kontrolle an das aufrufende Programm zurückgibt.

Durch die Befehle DbEngine.Idle wird sichergestellt, daß die Wartezeit sinnvoll genutzt wird und das Datenbankmodul andere Hintergrundprozesse abarbeiten kann. DoEvents sorgt dafür, daß auch andere Programme (z.B. Drucker) nicht ausgebremst werden.

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

WarteZeit

Optional. Wert in Sekunden. Wenn nichts angegeben wurde, beträgt die Wartezeit 0,2 s

Verwendete Variable

MinWarteZeit

Minimale Wartezeit in Sekunden

Hinweis

Die Funktion kann alternativ zu den Timer-Ereignissen in Formularen verwendet werden.