Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

HINWEIS

BEISPIEL

Alternativ können Sie auch die komplette Statusleiste ausblenden, wenn Sie beispielsweise mehr Platz für

Ihre Formulare benötigen.

Die Statusleiste komplett ausblenden

CurrentDb.Properties("StartUpShowStatusBar") = False

Hier ist ein Neustart der Datenbank erforderlich!

Fortschrittsanzeige mit dem Progressbar realisieren

Nicht jede Datenbankoperation ist in wenigen Sekunden erledigt, und so bietet es sich an, den Nutzer über

die laufenden Aktivitäten mit einer Fortschrittsanzeige zu informieren.

Verwenden Sie dazu die SysCmd-Funktion und die drei Konstanten

■ acSysCmdInitMeter (Initialisieren, Beschriftung erzeugen, Länge bestimmen),

■ acSysCmdUpdateMeter (aktuellen Wert einstellen) und

■ acSysCmdRemoveMeter (Progressbar entfernen),

können Sie den integrierten Access-Progressbar programmieren.

Fortschrittsanzeige von 0 bis 100 anzeigen und per

Timer

ansteuern

Dim i As Integer

Initialisieren mit Maximalwert und einer Meldung:

Private Sub Form_Load()

i = 100

SysCmd acSysCmdInitMeter, "Bitte warten!", 100

End Sub

Aktualisieren per Timer:

Private Sub Form_Timer()

i = i + 1

If i = 101 Then i = 1

SysCmd acSysCmdUpdateMeter, i

End Sub

Aufräumen am Ende:

Private Sub Form_Close()

SysCmd acSysCmdRemoveMeter

End Sub

Nach dem Aufruf des Formulars sollten Sie einen Blick auf den unteren Bildrand werfen:

941

Access-Oberflächengestaltung