If Anweisung
26.07.2021 16:39:18
Peer
Ich scheitere gerade an einer scheinbar einfache If-Anweisung.
Ich möchte beim Schließen der UF (QueryClose) prüfen, ob eine Auswahl getroffen wurde. Wenn nicht soll eine MsgBox erscheinen, ansonsten die UF schließen. Dabei habe ich unter "Verwendung" 6 Radiobutton angelegt.
'Abfrage, ob eine Verwendung ausgewählt wurde
If Me.opt_Ausbilder.Value = False And _
Me.opt_Krank.Value = False And _
Me.opt_Ruhe.Value = False And _
Me.opt_Urlaub.Value = False And _
Me.opt_Schicht.Value = False And _
Me.opt_Pruefer.Visible = True And Me.opt_Pruefer.Value = False Then
If MsgBox("Bitte eine Verwendung auswählen", vbOKCancel + vbInformation, "Keine Auswahl getroffen") = vbOK Then
Cancel = True
Else: Cancel = False
End If
End If
Die ersten 5 Optionen klappten bis jetzt auch prima. Nun habe ich eine Option "Pruefer" hinzugefügt, die in der UF ausgeblendet wird, wenn innerhalb der Mappe in einer Zelle nicht "Prüfer" steht. Wenn der Radiobutton eingeblendet ist, funktioniert ebenfalls alles. Wenn ich aber prüfen möchte, dass der Radiobutton eingeblendet ist UND deaktiviert ist, soll die Meldung kommen. Aber derzeit schließt die UF einfach ohne die Meldung.
Habe ich einen Gedankenfehler?
Ich wäre dankbar für jeden Anstoß.
VG
Peer