Microsoft Access Programmierrezepte

R13.30 Den eingebauten Fortschrittsbalken verwenden

Aufgabe

Sie möchten in Ihr Programm eine Fortschrittsanzeige integrieren und dazu gleich den integrierten Progressbar nutzen.

Lösung

Mit Hilfe der SysCmd-Funktion und den drei Konstanten acSysCmdInitMeter, acSysCmdUpdateMeter und acSysCmdRemoveMeter können Sie den integrierten Access-Progressbar programmieren.

Beispiel

Fortschrittsanzeige von 0 bis 100 anzeigen und per Timer ansteuern

Dim i As Integer

Initialisierung 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 ...