![\"Optionsgruppe](\"..\/tl_files\/images\/pic_534_001.png\")
<\/a><\/p>\nBild 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
Bild 2: Optionsgruppe ohne Standardwert in Aktion<\/p>\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 Damit können Sie eine Optionsgruppe, für die ein Benutzer bereits einen Wert ausgewählt hat, wieder leeren.<\/p>\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 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 Listing 1: Ereignisprozeduren beim Loslassen der Maustaste<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nOptionsgruppe per Schaltfläche leeren<\/h2>\n
Private Sub <\/span>cmdLeeren_Click()\r\n Me!ogrBeispiel = Null\r\nEnd Sub<\/span><\/pre>\nOption durch nochmaliges Anklicken leeren<\/h2>\n
<\/a><\/p>\nPrivate 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>\nIf <\/span>Me!ogrAusUndAbwaehlen = Me!opt1.OptionValue Then<\/span><\/pre>\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