optAvioDat, Vers

Aviso/frmEintragAviso.vb

@@ -630,14 +630,15 @@ Public Class frmEintragAviso
                 End If
             End If
 
-            If CDate(dtpAvisoEingangDatum.Value) > Now Then
-                MsgBox("Aviso-Datum darf nicht in der Zukunft liegen!", vbInformation)
-                dtpAvisoEingangDatum.Focus()
-                Exit Sub
-            End If
 
 
             If optAvisoEingang.Checked Then
+                If CDate(dtpAvisoEingangDatum.Value) > Now Then
+                    MsgBox("Aviso-Datum darf nicht in der Zukunft liegen!", vbInformation)
+                    dtpAvisoEingangDatum.Focus()
+                    Exit Sub
+                End If
+
                 If dtpAvisoEingangZeit.Value.Hour = 0 And dtpAvisoEingangZeit.Value.Minute = 0 Then
                     ' MsgBox("Bitte eine gültige Uhrzeit bei Aviso-Eingang eingegeben (00:00 ist nicht erlaubt).", vbInformation)
                     lblErr_Uhrzeit.Visible = True