Moderne On/Off-Schalter in Endlosformularen

In vielen Windows-Optionen, auf Webseiten und in Programmen sind die „altmodischen“ Kontrollkästchen durch schicke On/Off-Schalter ersetzt worden. In Microsoft Access gibt es die (natürlich) nicht – weder in den Optionen noch als eigenes Steuerelement.

Das war für mich solange kein Problem, bis ich begann, eine Oberfläche für einen Touchscreen zu optimieren. (Fast) alle Steuerelemente lassen sich in Form und Beschriftung vergrößern, jedoch nicht das Kontrollkästchen, das als „winziges“ Quadrat auf der Oberfläche heraussticht, bzw. verschwindet.

Und so geht es doch

In meinem Beispiel zur Verwendung von Icon-Fonts habe ich einen entsprechenden Ersatz schon demonstriert. Allerding lässt sich in einem Endlosformular das Ändern von Form und Farbe nicht wie dort durch das Ein- und Ausblenden von Textfeldern steuern, denn dies wirkt sich immer auf alle Zeilen im Formular aus.

Ich habe aus dem Beispiel die dort verwendeten Symbole übernommen und die Farben an die Windows-Standards angepasst. Die korrekte Darstellung erfolgt jetzt anhand des Wertes eines Ja/Nein-Feldes in der Datensatzquelle. Mit einem IIF für das Textfeld, das den Schalter (Punkt mit Rahmen) darstellt und der bedingten Formatierung für alle Felder, welche die Farben entsprechend anpasst, werden die Werte dargestellt.

 =Wenn([onoFeld1];"";"")

Jetzt noch die Textfelder in die richtige Position (nach vorne/hinten) bringen, eine unsichtbare Schaltfläche darüber legen und (wieder mit einem IIF) ein Textfeld mit der Statusbeschriftung daneben setzen: fertig ist der neue Umschalter.

Im Gegensatz zu allen Beispielen im Internet, die ich bisher gefunden habe, funktioniert das ohne Bilder und mit nur zwei Zeilen VBA-Code, die den Wert ändern und die Formatierung anstoßen:

Private Sub cmdOnOff1_Click()
'--------------------------------------------------------------------------------
' Feld umschalten und bedingte Formatierung neu berechnen lassen
'--------------------------------------------------------------------------------
   Me!onoFeld1 = Not Me!onoFeld1
   Me.Recalc
End Sub

Download

On/Off-Schalter im Endlosformular für Access 2016 (und neuer)
(Datei: OnOffEndlos.zip, ca. 60 KB)

Bitte denken Sie daran, dass Sie die Datei(en) nach dem Download Zulassen müssen.
Hier steht, warum und wie.