Private Sub btnAbbrechen_Click()
     With sevWerbe
        .CausesValidation = False
     End With
     FileClose                          ' Schliessen aller Recordsets
     Unload Me
End Sub

Private Sub sevWerbe_Validate(Cancel As Boolean)
    Cancel = False
 
    If IsNull(sevWerbe) Or sevWerbe = "" Then
        MsgBox "Erfassen Sie bitte zwingend die Werbeart"
        Cancel = True
        Exit Sub
     End If
End Sub