{"id":55000534,"date":"2021-06-01T00:00:00","date_gmt":"2021-06-01T00:00:00","guid":{"rendered":"http:\/\/access-basics.de\/534"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"OptionsgruppenOption_abwaehlen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/OptionsgruppenOption_abwaehlen.html","title":{"rendered":"Optionsgruppen-Option abwählen"},"content":{"rendered":"

Optionsgruppen mit den dazugehörigen Optionen sind praktisch zum Auswählen fest vorgegebener Optionen. Was aber, wenn man auch die Möglichkeit anbieten möchte, keinen der angebotenen Werte zu wählen Und wie bekommt man eine einmal getätigte Auswahl wieder weg Damit beschäftigt sich der vorliegende Artikel!<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 2103_OptionAbwaehlen.accdb<\/b>.<\/p>\n

Ausgangssituation<\/h2>\n

Wenn Sie eine Optionsgruppe anlegen und dieser einige Optionsschaltflächen hinzufügen, können Sie entweder angeben, dass ein Standardwert vorgegeben wird oder auch nicht.<\/p>\n

Wenn Sie einen Standardwert vorgegeben haben, wird dieser in der Optionsgruppe markiert, anderenfalls bleibt die Optionsgruppe komplett leer.<\/p>\n

Wenn Sie jedoch einmal einen der Werte der Optionsgruppe selektiert haben – wie können Sie diese Auswahl dann wieder zurücknehmen und die Optionsgruppe leeren Diese Möglichkeit finden wir zumindest nicht als eingebaute Option.<\/p>\n

Zu Beispielzwecken haben wir zunächst eine Optionsgruppe mit drei Optionen hinzugefügt und für diese die Eigenschaft Standardwert <\/b>leer gelassen (siehe Bild 1).<\/p>\n

\"Optionsgruppe<\/a><\/p>\n

Bild 1: Optionsgruppe ohne Standardwert<\/p>\n

Wenn Sie nun in die Formularansicht wechseln, zeigt die Optionsgruppe wie gewünscht keinen voreingestellten Wert an (siehe Bild 2). Das bleibt aber auch nur solange so, bis der Benutzer einmal auf eine der Optionen klickt. Von da an ist immer genau ein Element der Optionsgruppe markiert – Sie können die Optionsgruppe nicht mehr leeren.<\/p>\n

\"Optionsgruppe<\/a><\/p>\n

Bild 2: Optionsgruppe ohne Standardwert in Aktion<\/p>\n

Optionsgruppe per Schaltfläche leeren<\/h2>\n

Die einfachste und offensichtlichste Art, dies zu erledigen, ist eine Schaltlfäche neben der Optionsgruppe, mit der Sie diese leeren können. Diese müsste beispielsweise die folgende Ereignisprozedur auslösen:<\/p>\n

Private Sub <\/span>cmdLeeren_Click()\r\n    Me!ogrBeispiel = Null\r\nEnd Sub<\/span><\/pre>\n
Damit können Sie eine Optionsgruppe, für die ein Benutzer bereits einen Wert ausgewählt hat, wieder leeren.<\/p>\n
Option durch nochmaliges Anklicken leeren<\/h2>\n
Noch schöner wäre es allerdings, wenn der Benutzer nur nochmals auf den aktuell markierten Eintrag klicken müsste, um die Markierung aufzuheben. Allerdings geschieht beim erneuten Anklicken nichts.<\/p>\n
Also hinterlegen wir für die einzelnen Optionen jeweils eine Ereignisprozedur, die dafür sorgt, dass die Optionsgruppe geleert wird, wenn der Benutzer auf eine Option klickt, die bereits gewählt ist.<\/p>\n
Dazu vergeben wir zunächst Namen für die drei Optionen unseres Beispiels, nämlich opt1<\/b>, opt2 <\/b>und opt3 <\/b>(siehe Bild 3).<\/p>\n
\"Benennung<\/a><\/p>\n
Bild 3: Benennung der Optionen<\/p>\n
Nun müssen wir herausfinden, welches Ereignis dasjenige ist, mit dem wir das Aktivieren einer der Optionen nachbilden können. Wir klicken mit der Maus auf den jeweiligen Eintrag, also handelt es sich wohl um eines der Ereignisse, die mit dem Betätigen des Mauszeigers zusammenhängen.<\/p>\n
Um zu prüfen, ob die Option beim Herunterdrücken oder Loslassen des Mauszeigers gesetzt wird, führen wir den Schritt einfach einmal aus. Dabei stellen wir fest, dass die Option beim Herunterdrücken der Maustaste zwar bereits aktviert, aber noch nicht gesetzt wird. Das geschieht erst beim Loslassen des Mauszeigers. Unser gesuchtes Ereignis ist also Bei Maustaste auf<\/b>.<\/p>\n
Danach legen wir für die drei Optionen die Ereignisprozeduren aus Listing 1 an. Diese sind ähnlich aufgebaut und unterscheiden sich nur an einer Stelle. Die Prozeduren vergleichen den Wert der Optionsgruppe mit dem Wert der Option, den wir mit der Eigenschaft OptionValue <\/b>des Optionsfeldes ermitteln, also beispielsweise:<\/p>\n
Private Sub <\/span>opt1_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n     If <\/span>Me!ogrAusUndAbwaehlen = Me!opt1.OptionValue Then<\/span>\r\n         Me!ogrAusUndAbwaehlen = Null\r\n     End If<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>opt2_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n     If <\/span>Me!ogrAusUndAbwaehlen = Me!opt2.OptionValue Then<\/span>\r\n         Me!ogrAusUndAbwaehlen = Null\r\n     End If<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>opt3_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n     If <\/span>Me!ogrAusUndAbwaehlen = Me!opt3.OptionValue Then<\/span>\r\n         Me!ogrAusUndAbwaehlen = Null\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Ereignisprozeduren beim Loslassen der Maustaste<\/p>\n
If <\/span>Me!ogrAusUndAbwaehlen = Me!opt1.OptionValue Then<\/span><\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t