![\"Eine](\"..\/tl_files\/images\/pic_153_001.png\")
<\/a><\/p>\nBild 1: Eine einfache Umschaltfläche<\/p>\n
Dazu geben Sie einfach im Direktfenster des VBA-Editors (Strg + G<\/b>, am besten platzieren Sie beide Fenster nebeneinander) die folgende Anweisung ein:<\/p>\n Dies war der Zustand direkt nach dem öffnen des Formulars für eine ungebundene Umschaltfläche – die Eigenschaft Value<\/b> liefert den Wert Null<\/b>. Sie können die Angabe der Eigenschaft Value <\/b>auch weglassen, da dies die Standardeigenschaft dieses Steuerelements ist. Klicken Sie nun einmalig auf die Umschaltfläche und führen die Abfrage für den gedrückten Status aus, sieht das Ergebnis so aus:<\/p>\n Der gedrückte Zustand liefert also den Wert -1 <\/b>beziehungsweise True<\/b>. Ein erneutes Anklicken liefert schließlich den Wert 0<\/b>, also False<\/b>.<\/p>\n Anschließend prüfen wir, wie wir auf das Anklicken der Umschaltfläche reagieren und den aktuellen Wert verarbeiten können. Ein Blick auf die Registerseite Ereignis <\/b>des Eigenschaftsfensters liefert alle zur Verfügung stehenden Ereigniseigenschaften (siehe Bild 2). Davon sind drei interessant: Beim Klicken<\/b>, Vor Aktualisierung <\/b>und Nach Aktualisierung<\/b>.<\/p>\n Bild 2: Ereigniseigenschaften der Umschaltfläche<\/p>\n Beim Anklicken der Umschaltfläche werden alle drei Eigenschaften in der folgenden Reihenfolge ausgelöst:<\/p>\n Dies können Sie ganz einfach testen, indem Sie für alle drei Eigenschaften je eine Ereignisprozedur anlegen und diesen einen Haltepunkt hinzufügen. Die Ereigniseigenschaft fügen Sie am schnellsten hinzu, indem Sie den Wert [Ereigniseigenschaft] <\/b>für die jeweilige Eigenschaft auswählen und auf die Schaltfläche mit den drei Punkten klicken. Einmal im VBA-Editor angelangt, können Sie weitere Ereignisprozeduren über die beiden Kombinationsfelder oben im Code-Fenster mit dem Klassenmodul Form_frmToggleButton <\/b>des Beispielformulars hinzufügen. Dort klicken Sie dann links auf den grauen Rand neben dem Prozedurkopf, um Haltepunkte hinzuzufügen (siehe Bild 3).<\/p>\n Bild 3: Wichtige Ereignisprozeduren einer Umschaltfläche<\/p>\n Schauen wir, ob es Unterschiede zwischen den Prozeduren gibt – gegebenenfalls wird ja das Ereignis Vor Aktualisierung <\/b>so früh ausgelöst, dass Value noch nicht den geänderten Wert liefert, dies aber bei den übrigen Ereignissen der Fall ist. Dazu lassen wir bei jedem Ereignis den Wert der Umschaltfläche ausgeben:<\/p>\n Nach dem Anklicken der Umschaltfläche liefern jedoch alle drei Ereignisse den gleichen Wert, wie die folgende Ausgabe im Direktfenster bestätigt:<\/p>\n Der einzige offensichtliche Unterschied ist somit, neben der Reihenfolge, der Parameter Cancel <\/b>der Prozedur, die durch das Ereignis Vor Aktualisierung <\/b>ausgelöst wird. Mit diesem können Sie festlegen, dass die Aktualisierung abgebrochen wird. Vorsicht ist hier bei der Abfrage des Wertes in der durch die Eigenschaft Vor Aktualisierung <\/b>ausgelösten Prozedur geboten: Diese zeigt nämlich immer den Wert an, den die Umschaltfläche annehmen würde, wenn die Prozedur nicht durch Einstellen des Cancel<\/b>-Parameters auf True <\/b>abgebrochen wird.<\/p>\n Das folgende Beispiel soll zeigen, wie Sie in Abhängigkeit vom Zustand der Umschaltfläche weitere Aktionen anstoßen. Dazu fügen wir dem Formular frmToggleButton <\/b>eine einfache Schaltfläche namens cmdSchaltflaeche <\/b>hinzu (siehe Bild 4). Ein Klick auf die Umschaltfläche soll die Schaltfläche aktivieren oder deaktivieren, je nachdem, ob die Umschaltfläche den Wert True <\/b>oder False <\/b>enthält.<\/p>\n Bild 4: Aktivieren und Deaktivieren weiterer Steuerelemente in Abhängigkeit vom Zustand der Umschaltfläche<\/p>\n Da anscheinend alle oben geprüften Ereignisprozeduren den gleichen Zustand liefern, können wir einfach die durch das Beim Klicken<\/b>-Ereignis ausgelöste Prozedur für unsere Zwecke einsetzen.<\/p>\n Wenn der Benutzer nun die Umschaltfläche herunterdrückt, wird die Schaltfläche cmdSchaltflaeche <\/b>aktiviert. Wenn die Umschaltfläche gelöst wird, deaktiviert dies die Umschaltfläche. Die If…Then<\/b>-Abfrage untersucht dazu den Ausdruck Me!tblAnAus <\/b>auf den Wert True <\/b>und weist der Eigenschaft Enabled <\/b>der Schaltfläche cmdSchaltflaeche <\/b>gegebenenfalls ebenfalls den Wert True <\/b>zu, anderenfalls den Wert False<\/b>.<\/p>\n Das schreit nach einer Vereinfachung: Sollten nicht noch weitere Aktionen innerhalb der If…Then<\/b>-Bedingung ausgeführt werden, können Sie diese durch eine einzige Anweisung ersetzen:<\/p>\n Umschaltflächen lassen sich anstelle von Kontrollkästchen und Optionsfeldern einsetzen und können somit zur Auswahl des Inhalts von Ja\/Nein<\/b>-Feldern oder auch von Feldern mit mehreren möglichen, aber in der Anzahl eingeschränkten Werten dienen. Dies bezieht sich vor allem auf das Bearbeiten von in Tabellen gespeicherten Werten. Zu Testzwecken enthält die Beispieldatenbank eine Tabelle namens tblBeispiele<\/b>, die neben einem Textfeld auch ein Ja\/Nein<\/b>-Feld und ein Feld namens Auswahl <\/b>mit dem Datentyp Zahl <\/b>enthält (siehe Bild 5).<\/p>\n Bild 5: Beispieldatenbank für Experimente mit der Umschaltfläche<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span> Forms!frmToggleButton!tglAnAus.Value\r\n Null<\/pre>\n
Forms!frmToggleButton!tglAnAus\r\n -1 <\/pre>\n
Ereignisse der Umschaltfläche<\/h2>\n
<\/a><\/p>\n\n
<\/a><\/p>\nPrivate Sub <\/span>tglAnAus_AfterUpdate()\r\n Debug.Print<\/span> \"AfterUpdate: \", tglAnAus.Value\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>tglAnAus_Click()\r\n Debug.Print<\/span> \"Click: \", tglAnAus.Value\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>tglAnAus_BeforeUpdate(Cancel As Integer<\/span>)\r\n Debug.Print<\/span> \"BeforeUpdate: \", tglAnAus.Value\r\nEnd Sub<\/span><\/pre>\nBeforeUpdate: -1 \r\nAfterUpdate: -1 \r\nClick: -1<\/pre>\n
Aktionen beim Umschalten<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>tglAnAus_Click()\r\n If <\/span>Me!tglAnAus = True<\/span> Then<\/span>\r\n Me!cmdSchaltflaeche.Enabled = True<\/span>\r\n Else<\/span>\r\n Me!cmdSchaltflaeche.Enabled = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>tglAnAus_Click()\r\n Me!cmdSchaltflaeche.Enabled = Me!tglAnAus\r\nEnd Sub<\/span><\/pre>\nGebundene Umschaltflächen<\/h2>\n
<\/a><\/p>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t