Beim Starten einer selbst programmierten Datenbank-Anwendung aktualisiert Access Verknüpfungen und importiert einige Dateien – das kann dauern. Daher soll das Programm über einen Balken in einem Dialog den Fortschritt dieser Aktion anzeigen. Allerdings erscheint das eigens dafür programmierte Formular nur unvollständig oder gar nicht.

Die Anzeige des Dialogs mit dem Fortschrittsbalken lässt sich erzwingen. Verwenden Sie dazu in Ihrem Programmlisting nach dem Kommando zum Öffnen des Formulars den Befehl “DoEvents”. Der übergibt die Ablaufsteuerung an das Betriebssystem, damit es Ereignisse wie die Anzeige des Balkenfensters direkt verarbeiten kann. Erst danach darf die Datenbank wieder die Steuerung übernehmen und mit dem Laden der benötigten Komponenten sowie mit der Aktualisierung des Balkens fortfahren.

Das folgende Beispiel demonstriert diese Methode anhand einer kleinen Prozedur. Diese öffnet das Formular “Test”, lässt in einer “For-Next”-Schleife den dazugehörigen Fortschrittsbalken “ProgressBar” einmal durchlaufen und schließt das Formular danach wieder. Die “For-Next”-Schleife können Sie durch Ihre eigenen Anweisungen zum Initialisieren der Datenbank-Anwendung ersetzen:

Private Sub TestDoEvents_Click()
Dim intZaehler As Integer
DoCmd.OpenForm \"Test\"
DoEvents
Forms!Test!ProgressBar.Max = 5000
For intZaehler = 1 To 5000
Forms!Test!ProgressBar.Value = intZaehler
Next
DoCmd.Close acForm, \"Test\"
End Sub

Ähnliche Beiträge:

Gilt für: Access 97, Access 2000, Access XP, Access 2003