diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj
index 134007d..852f951 100644
--- a/VERAGAddIn/VERAGAddIn.vbproj
+++ b/VERAGAddIn/VERAGAddIn.vbproj
@@ -36,7 +36,7 @@
     <PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
     <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
     <TargetCulture>de</TargetCulture>
-    <ApplicationVersion>1.0.1.99</ApplicationVersion>
+    <ApplicationVersion>1.0.1.100</ApplicationVersion>
     <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
     <UpdateInterval>0</UpdateInterval>
diff --git a/VERAGAddIn/frmAvisoFormularAnfügen.vb b/VERAGAddIn/frmAvisoFormularAnfügen.vb
index 5ad5727..db82df0 100644
--- a/VERAGAddIn/frmAvisoFormularAnfügen.vb
+++ b/VERAGAddIn/frmAvisoFormularAnfügen.vb
@@ -160,6 +160,11 @@ Public Class frmAvisoFormularAnfuegen
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
 
+        If Not checkMandatoryFields() Then
+            DialogResult = DialogResult.None
+            Exit Sub
+        End If
+
         If avisoIdSet And Not button.Name = "btnVollmachten" Then
             DialogResult = DialogResult.OK
             Exit Sub
@@ -205,12 +210,6 @@ Public Class frmAvisoFormularAnfuegen
         End If
 
 
-
-        If Not checkMandatoryFields() Then
-            DialogResult = DialogResult.None
-            Exit Sub
-        End If
-
         Select Case button.Name
 
             Case "btnVollmachten"
@@ -229,7 +228,7 @@ Public Class frmAvisoFormularAnfuegen
                 ElseIf UsrCntlVertraege1.dgvVertraege.SelectedRows.Count = 1 Then
 
                     For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraege.SelectedRows
-                        If row.Cells("kv_datenarchivId").Value IsNot DBNull.Value Then
+                        If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
                             setAvisoIdForVertrage()
                         Else
                             Dim response = MsgBox("Der markierte Vertrag besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
@@ -266,7 +265,7 @@ Public Class frmAvisoFormularAnfuegen
 
                     For Each row As DataGridViewRow In UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows
 
-                        If row.Cells("gg_datenarchivId").Value IsNot DBNull.Value Then
+                        If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
                             setAvisoIdForGestellungen()
                         Else
                             Dim response = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)