Office: Wenn formular beenden dann meldung falls in der Optionsgruppe nichts ausgewählt ist

Hallo

wie bereits im Titel erwähnt benötige ich bitte einen Code für dieses Problem

habe eine optionsgruppe mit optionsbuttons erstellt ("ja", "nein")
wenn ich das formular jetzt durch einen button schließen will soll er eine meldung ausgeben falls nichts ausgewählt wurde.

Bitte um Hilfe ;)

thanks in advance

 

Hallo,

falls die Optionengruppe "grpOptionJN" heißt, könnte der VBA-Code für das Click-Ereignis des Buttons "cmdSchließen" in etwa so lauten:

Code:

Private Sub cmdSchließen_Click()
  If IsNull(Me.grpOptionJN.Value) Then
    MsgBox "Keine Option der Optionengruppe wurde ausgewählt."
  Else
    DoCmd.Close
  End If
End Sub

Diese Situation kann man von vornherein dadurch vermeiden, indem man der Eigenschaft "Standardwert" der Optionengruppe den Wert einer der enthaltenen Optionen zuweist beim Formularentwurf, sodass bereits beim Öffnen des Formulars stets eine der Optionen ausgewählt ist.