merge

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -471,7 +471,9 @@ Public Class frmMitarbDetails
         Dim newMid As Integer = 0
         If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
 
-        USRPARAM_Bind.updateBinding()
+        If USRPARAM_Bind IsNot Nothing Then
+            USRPARAM_Bind.updateBinding()
+        End If
 
         getMitarbeiter()