Den Zustand eines Dienstes anzeigen

In diesem Tutorial zeigen Sie den Zustand jedes Dienstes einer Tabelle als farbige Statusanzeige, die dem aktuellen Datensatz folgt: „läuft“ in Grün, „gestoppt“ in Grau, „Fehler“ in Rot.

• Microsoft 365 Access oder Access Runtime, in 32 oder 64 Bit, mit der WKL Forms Object Library 1.23 oder höher, installiert und für den aktuellen Windows-Benutzer registriert (Freigegebenes Paket installieren).
• Eine neue oder vorhandene Datenbank an einem vertrauenswürdigen Speicherort.
• Jedes WKL-Steuerelement öffnet seinen Designer auf dieselbe Weise: in der Entwurfsansicht im Eigenschaftenblatt (F4), Registerkarte Andere, Zeile Benutzerdefiniert, [...] (Designer eines Steuerelements öffnen).

Fügen Sie die Prozedur in ein Standardmodul ein und führen Sie sie einmal im Direktbereich aus (CreateStatusSample):

Public Sub CreateStatusSample()
    With CurrentDb
        .Execute "CREATE TABLE tblDienst (ID LONG CONSTRAINT PK_Dienst PRIMARY KEY, Dienst TEXT(50), Zustand TEXT(30))"
        .Execute "INSERT INTO tblDienst VALUES (1, 'Abgleich', 'laeuft')"
        .Execute "INSERT INTO tblDienst VALUES (2, 'Lager', 'gestoppt')"
        .Execute "INSERT INTO tblDienst VALUES (3, 'Versand', 'Fehler')"
        .Execute "INSERT INTO tblDienst VALUES (4, 'Archiv', Null)"
    End With
End Sub

Erstellen Sie ein einzelnes Formular frmDienst, gebunden an tblDienst, mit einem Textfeld Dienst. Wählen Sie Formularentwurf › Steuerelemente › ActiveX-Steuerelemente › WKL Status Label, ziehen Sie die Statusanzeige unter dem Textfeld etwa 6 cm breit und 0,5 cm hoch auf und nennen Sie sie lblZustand. Setzen Sie ihren Steuerelementinhalt (Eigenschaftenblatt, Registerkarte Daten) auf Zustand.

Die Einträge legen fest, welchen Text, welche Art und welches Symbol ein Wert erhält. Sie werden mit dem Formular gespeichert; fügen Sie sie daher einmal in der Entwurfsansicht hinzu: Fügen Sie die Prozedur in ein Standardmodul ein, führen Sie sie aus, während frmDienst in der Entwurfsansicht geöffnet ist, und speichern Sie dann das Formular.

Public Sub SetStatusEntries()
    With Forms!frmDienst!lblZustand.Object
        .Caption = "Zustand"
        .NullText = "unbekannt"
        .ClearStatusItems
        .AddStatusItem "laeuft", "läuft", wskOk, "E768"
        .AddStatusItem "gestoppt", "gestoppt", wskNeutral
        .AddStatusItem "Fehler", "gestört", wskBad, "E783"
    End With
End Sub

Öffnen Sie das Formular in der Formularansicht und blättern Sie durch die Datensätze: „Zustand: läuft“ in Grün mit einem Wiedergabesymbol, „gestoppt“ in Grau, „gestört“ in Rot und „unbekannt“ für den Datensatz ohne Zustand.

• Die Statusanzeige folgt dem aktuellen Datensatz und markiert ihn nie als geändert.
• Ein Wert ohne Eintrag (zum Beispiel „pausiert“) erscheint als Text in der entworfenen Art.
• Eine Sprachausgabe liest „Zustand: läuft“ und die Art vor.

• API-Referenz (Englisch): WklStatusLabel: KindField, Format, Busy, Clickable.
• Überblick WklGrid: dieselben Zustände als Spalte einer Liste.