Sub Entering(Source As Field)
Dim uiWS As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Set uiDoc = uiWS.CurrentDocument
Call uiDoc.FieldSetText("optionen_1", "leer")
End Sub
Diesen Code kannst du ins Entering-Event von z.B. "optionen_2" stellen und umgekehrt. Durch den Wert "leer" wird hier das Optionsfeld demarkiert, da kein Wert "leer" zur Auswahl zur Verfügung steht.
Aber Achtung. Es ist so dem User auch möglich, beide Optionsfelder zu demarkieren, so dass nichts mehr angewählt ist. Er muss dazu z.B. nur eine Option aus dem ersten Feld anwählen, auf dem zweiten Feld Maustaste runter, und mit gedrückter Taste die Maus wegbewegen, loslassen.
Also musst du vor dem Speichern prüfen, ob beide Felder den Wert "leer" enthalten.