Access2000: Pause erzwingen

Computer: Software & Programmierung Microsoft Access
#1

Hallo Tüftler,

ich habe inm einer DB einige Importprozeduren eingebaut, die vor der eigentlichen Aktion in ein Statusfeld (ungeb. Textfeld) eine Meldung schreiben (z. B. „Einlesen von Tabelle XY …“) und danach den Text wechseln (z. B. „Einlesen von Tabelle XY beendet“).

Jetzt möchte ich vor jeder Aktion eine Pause erzwingen, damit der Statustext nicht alle Sekunden wechselt (Tabelleneinlesen geht ziemlich rasant!).

Wie kann ich mit VBA Access dazu bringen, vor jeder Aktion ein wenig anzuhalten (ca. 5 Sek.)?

Danke für Eure Hilfe …

gruss moritzbock

#2

Z.B. so:

Public Function Warte(ms As Long)
Dim M As Single
 M = Timer
 Do While Timer 
oder mit der API-FUnktion "Sleep":


    
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Gruß aus dem Norden
Reinhard Kraasch ([http://www.kraasch.de](http://www.kraasch.de) - Access Tipps & Tricks)
#3

Danke Reinhard,

werd ich morgen früh gleich mal ausprobieren …

gruss moritzbock

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Danke!!! - Es klappt - Stern wird vergeben (owT)
…