Fortschrittsbalken

Praedator

Ein Fortschrittsbalken lässt sich in Access mit einfachen Mitteln realisieren.

Man benötigt eigentlich 3 Zeilen Quellcode

Initialisieren: Application.SysCmd acSysCmdInitMeter, "Bitte warten...", lngMaxWert
Aktualisieren: Application.SysCmd acSysCmdUpdateMeter, lngZwischenWert
Entfernen: Application.SysCmd acSysCmdRemoveMeter

Application. kann auch weg gelassen werden.

Code

Public Sub Fortschrittsbalken()
  Dim i As Long, vTime As Date
  Const lngMax As Long = 3

  Application.DoCmd.Hourglass True                                 'Sanduhr einschalten
  Application.SysCmd acSysCmdInitMeter, "Bitte warten...", lngMax  'Fortschrittsbalken initialisieren

  For i = 1 To lngMax
    vTime = DateAdd("s", 1, Now)                'nur zur Veranschaulichung dazu da, damit der 
    Do While vTime > Now: Loop                  'Fortschrittsbalken nicht zu schnell durchläuft

    Application.SysCmd acSysCmdUpdateMeter, i   'Fortschrittsbalken aktualisieren
  Next i




  Application.SysCmd acSysCmdRemoveMeter        'Fortschrittsbalken wieder entfernen
  Application.DoCmd.Hourglass False             'Sanduhr wieder abschalten
End Sub

Alles anzeigen

Tags