jj 17.08 add button

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -2127,6 +2127,8 @@ Public Class frmConstructor_Main
             Return False
         End Try
 
+        tsButtonAdd.Enabled = True
+
         If CtrlCommandUI.IsInsert Then
             tsButtonSave.Enabled = False
             tsButtonCancel.Visible = False
@@ -3012,6 +3014,8 @@ Public Class frmConstructor_Main
                     ClassDatabase.Execute_non_Query_withConn(del, 1)
                 End If
 
+                tsButtonAdd.Enabled = True
+
                 'Dim ResultMessage
                 '' Wenn MussFelder nicht ausgefüllt werden, wird eine exception geworfen und abgefangen
                 'Try
@@ -5715,6 +5719,7 @@ Public Class frmConstructor_Main
             ClassDatabase.Execute_non_Query_withConn(del, 1)
         End If
         tsButtonCancel.Visible = False
+        tsButtonAdd.Enabled = True
         CtrlCommandUI.IsInsert = False
         RECORD_CHANGED = False
 
@@ -5831,6 +5836,8 @@ Public Class frmConstructor_Main
                         ' Änderungen sollen gespeichert werden,
                         ' Muss-Felder sind alle ausgefüllt
                         TrySave_DoSave()
+                        ' Hinzufügen Button wieder aktivieren
+                        tsButtonAdd.Enabled = True
                         If CtrlCommandUI.IsInsert Then
                             Lock_RecordControls(True)
                         End If
@@ -5850,6 +5857,8 @@ Public Class frmConstructor_Main
                     ' Änderungen sollen nicht gespeichert werden
                     RECORD_CHANGED = False
                     tsButtonCancel.Visible = False
+                    ' Hinzufügen Button wieder aktivieren
+                    tsButtonAdd.Enabled = True
 
                     Return True
                 End If