DruckversionProgrammieren der Access-Umgebung
Die SysCmd-Funktion
Wie kann ich einen Fortschrittsbalken in der Statuszeile anzeigen? Wie kann ich Texte in der Statuszeile anzeigen?
Diese Prozedur zeigt einen Fortschrittsbalken in der Statuszeile an
Function Meter ()
Dim MyDBAs Database, MyTableAs RecordSet
Dim Count As Long
Dim Progress_Amount As Integer, RetVal As Variant
Set MyDB = CurrentDB()
Set MyTable = MyDB.OpenRecordSet("Customers")
' Zum letzten Datensatz springen, um die Datensatzanzahl festzustellen
MyTable.MoveLast
Count = MyTable.RecordCount
MyTable.MoveFirst
' Fortschrittsbalken initialisieren
RetVal = SysCmd(acSysCmdInitMeter, "Reading Data...", Count)
' Alle Datensätze durchlaufen
For Progress_Amount= 1 To Count
' Fortschrittsbalken aktualisieren
RetVal= SysCmd(acSysCmdUpdateMeter, , Progress_Amount)
Debug.PrintMyTable![ContactName]
MyTable.MoveNext
Next Progress_Amount
' Fortschrittsbalken entfernen
RetVal= SysCmd(acSysCmdRemoveMeter)
End FunctionIndem man die Funktion SysCmd mit den verschiedenen Statusanzeiger-Aktionen aufruft, kann man in der Statusleiste eine Fortschrittsanzeige für eine Operation anzeigen, für die die Dauer oder die Anzahl der durchzuführenden Schritte bekannt ist, und den Fortschrittsbalken aktualisieren, um den Fortschritt der Operation mitzuteilen.
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied