Sie möchten Ihre Anwendung durch eine leicht zu programmierende Fortschrittsanzeige ergänzen Einfach zwei Objekte zur Anwendung hinzufügen, ein paar Befehle schreiben und schon den Fortschritt von Aktionen im Blick haben Kein Problem – dieser Beitrag stellt eine passende Lösung vor und zeigt auch, wie sie im Detail funktioniert.
Fortschrittlich
Es gibt nicht Schlimmeres, als auf etwas zu warten und nicht zu wissen, wann es so weit ist. Im Wartezimmer beim Arzt können Sie aufgrund der anwesenden Patienten wenigsten einigermaßen abschätzen, wie es vorangeht, aber wenn Sie gerade eine aufwendige Prozedur angeworfen haben und keine Statusmeldung über den aktuellen Stand erhalten, werden Sie vermutlich unruhig – kann ich noch einen Kaffee holen oder geht es gleich weiter Und wenn Sie selbiges Ihren Kunden vorsetzen, sind Sie diese schneller los, als es Ihnen lieb ist.
Damit dies nicht geschieht, informieren Sie den Benutzer durch eine entsprechende grafische Darstellung über den Fortschritt – und das ist recht leicht zu bewerkstelligen.
Fortschrittsbalken im Einsatz
Um das nachfolgend beschriebene Formular zur Anzeige eines Fortschrittsbalkens zu benutzen, brauchen Sie nur wenige Anweisungen. Das folgende Beispiel zeigt schon alle möglichen Befehle:
Public Sub TestFortschritt()
Dim i As Integer
FortschrittAnzeigen
For i = 0 To 100
FortschrittAktualisieren _
i & " % fertig", i
Next i
FortschrittBeenden
End Sub
Mit FortschrittAnzeigen öffnen Sie die Fortschrittsanzeige. Diese zeigt dann noch keinen Text an und der Fortschrittsbalken hat eine minimale Breite. FortschrittBeenden schließt die Fortschrittsanzeige wieder.
Dazwischen liegt die Festlegung des jeweiligen Status mit der Anweisung FortschrittAktualisieren, die den Parameter strText und/oder intProzent erwartet.
Dabei gibt strText den zu diesem Zeitpunkt anzuzeigenden Statustext und intProzent den Fortschritt in Teilen von Hundert an.
Beide Informationen können auch einzeln angegeben werden. Der Fortschrittsbalken sieht für dieses Beispiel etwa wie in Bild 1 aus.
Bild 1: Fortschrittsbalken, hier Anzeige des Fortschritts in Prozent
Integration
In der Regel setzt man einen Fortschrittsbalken innerhalb von Schleifen ein. Damit die Fortschrittsanzeige einigermaßen aussagekräftige Informationen liefert, ermitteln Sie vor dem ersten Schleifendurchlauf die Anzahl der Durchläufe. Sie können die Fortschrittsanzeige dann innerhalb der Schleife mit den entsprechenden Prozentwerten füttern. Für das Durchlaufen eines Recordsets könnte dies so aussehen:
Set rst = db.OpenRecordset("tblArtikel", dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
intCount = rst.RecordCount
FortschrittAnzeigen
Do While Not rst.EOF
'Do Something
FortschrittAktualisieren "Datensatz " _
& rst.AbsolutePosition & " von " _
& intCount, rst.AbsolutePosition _
/ intCount * 100
rst.MoveNext
Loop
FortschrittBeenden
Anders sieht dies aus, wenn Sie beispielsweise verschiedene etwas länger dauernde Abläufe mit der Fortschrittsanzeige dokumentieren möchten.
Hier sollten Sie dann einfach nach Gefühl einzelne Fortschrittsmeldungen in den Code einflechten – immerhin ist es möglich, dort beliebige Statusmeldungen und Prozentsätze einzugeben.
Das Formular zur Fortschrittsanzeige
Nur für Abonnenten
Ab hier wird’s wirklich spannend – der Rest ist exklusiv für Abonnenten.
Mit dem Abo von Access im Unternehmen bekommst du den kompletten Artikel – inklusive vollständigem Code, Beispieldatenbank und Schritt-für-Schritt-Erklärung.
So sparst du dir stundenlanges Herumprobieren, vermeidest teure Fehler in deiner Access-Anwendung und kannst Lösungen direkt in deinem Unternehmen einsetzen, statt nur darüber zu lesen.
Teste Access im Unternehmen jetzt 4 Wochen lang kostenlos: Voller Zugriff auf alle Artikel, Downloads und Beispieldatenbanken. Kein Risiko – wenn es für dich nicht passt, kündigst du einfach innerhalb der ersten vier Wochen.
Bereits Abonnent? Hier einloggen
Kostenlos & unverbindlich
Oder hast Du eine konkrete Frage zu Deiner eigenen Access-Anwendung?
Vielleicht stellt Deine Anwendung Dich vor eine Herausforderung, zu der Du bisher keine Lösung findest. Schlechte Performance, kein ausreichender Zugriffsschutz, Du bist unsicher über Dein Datenmodell oder Dein Code liefert unerklärliche Fehler?
In unserem kostenlosen Access-Audit schaut sich André Minhorst persönlich gemeinsam mit Dir Deine Lösung per Zoom an – und zeigt Dir, wo Datenmodell, VBA-Code, Ergonomie und Sicherheit Optimierungspotenzial bieten.
Jetzt kostenloses Access-Audit anfordern →