Ein Konto ein- und ausschalten

In diesem Tutorial platzieren Sie auf einem Benutzerformular einen Schalter für das Feld Aktiv. Schaltet der Benutzer um, wird der Datensatz sofort gespeichert; auf einem gesperrten Formular reagiert der Schalter nicht.

• Microsoft 365 Access oder Access Runtime, in 32 oder 64 Bit, mit der WKL Forms Object Library 1.32 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 (CreateToggleSample):

Public Sub CreateToggleSample()
    With CurrentDb
        .Execute "CREATE TABLE tblUser (ID LONG CONSTRAINT PK_User PRIMARY KEY, Name TEXT(50), Aktiv YESNO)"
        .Execute "INSERT INTO tblUser VALUES (1, 'Meier', True)"
        .Execute "INSERT INTO tblUser VALUES (2, 'Schulz', False)"
    End With
End Sub

Erstellen Sie ein einzelnes Formular frmUser, gebunden an tblUser, mit einem Textfeld Name. Wählen Sie Formularentwurf › Steuerelemente › ActiveX-Steuerelemente › WKL Toggle Switch, ziehen Sie den Schalter unter dem Textfeld etwa 5 cm breit und 0,6 cm hoch auf und nennen Sie ihn tglAktiv. Setzen Sie seinen Steuerelementinhalt (Eigenschaftenblatt, Registerkarte Daten) auf Aktiv.

Öffnen Sie den Designer (Eigenschaftenblatt, Registerkarte Andere, Zeile Benutzerdefiniert [...]). Setzen Sie auf der Seite Schalter die Beschriftung auf Konto, Text bei Ein auf Aktiv und Text bei Aus auf Gesperrt; die Vorschau zeigt beide Zustände. Klicken Sie auf OK.

Fügen Sie dem Formularmodul hinzu:

Private Sub tglAktiv_Change()
    Me.Dirty = False        ' the switch takes effect at once, as in the Windows settings
End Sub

Öffnen Sie das Formular in der Formularansicht: Bei Meier steht „Konto (ein) Aktiv“. Klicken Sie auf den Schalter: Er zeigt „Gesperrt“, und der Datensatz ist gespeichert – der Datensatzmarkierer zeigt keinen Stift. Wechseln Sie zu Schulz und drücken Sie die Leertaste, während der Schalter den Fokus hat: Er schaltet ein. Setzen Sie die Formulareigenschaft Bearbeitungen zulassen auf Nein und versuchen Sie es erneut: Der Schalter lässt sich nicht umschalten.

• Ein Klick oder die Leertaste schaltet um und speichert den Datensatz über Change.
• tblUser.Aktiv enthält direkt nach dem Umschalten den neuen Wert.
• In einem Formular, das keine Bearbeitungen zulässt, oder mit Gesperrt = Ja am Schalter ändert sich nichts.

• Schalter für ein Ja/Nein-Feld verwenden: der Schalter als Listenspalte.
• API-Referenz (Englisch): WklToggleSwitch.