Optionsgruppen

[seppi]

Hallo zusammen

Ich habe zwei umfangreiche Optionsgruppen. Wenn in der ersten Gruppe eine Option aktiv ist, müssen alle anderen deaktiviert sein (Gruppe 1 OK, funktioniert). Und umgekehrt.

Wie kann ich in Gruppe 2 alles Optionen auf deaktiviert setzen?

Danke und Gruss, Seppi

[DF6GL]

Hallo,


die Gruppen (Optionsrahmen) haben einen Namen und eine "Value"-Eigenschaft.


Setze also bei "Nach Aktualisierung" der Gruppe1 den Wert des 2. Optionsrahmens auf z. B. 0  (der darf nicht von einem darin enthaltenen Optionsfeld "besetzt" sein):

Je nachdem , welche Optionsfeld-Werte verwendet werden, muss der nachstehende Code angepasst werden.


Sub Gruppe1_AfterUpdate()
If Me!gruppe1 > 0 then
Me!Gruppe2 = 0
End Sub

Und umgekehrt.

Sub Gruppe1_AfterUpdate()
If Me!gruppe2 > 0 then
Me!Gruppe1 = 0
End Sub


Evtl. müssen beide Prozeduren beim Ereignis "Beim Anzeigen" zusätzlich aufgerufen werden.

[seppi]

Funktioniert. Danke.