MS

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -828,6 +828,7 @@ Public Class frmConstructor_Main
         Else
             If CtrlCommandUI.IsInsert Then
                 ActivateAllTabs()
+                CtrlCommandUI.IsInsert = False
             End If
         End If
     End Sub
@@ -2322,12 +2323,7 @@ Public Class frmConstructor_Main
         Lock_RecordControls(True)
         RECORD_ENABLED = False
         CURRENT_RECORD_ENABLED = False
-        If Not IsNothing(CtrlCommandUI) Then
-            CtrlCommandUI.IsEdit = False
-            CtrlCommandUI.IsInsert = False
-        End If
-       
-
+        
         Me.tsButtonDelete.Enabled = False
         Me.tsButtonAdd.Enabled = True
         Me.tsButtonSave.Enabled = False
@@ -2343,11 +2339,17 @@ Public Class frmConstructor_Main
         If Not IsNothing(CtrlCommandUI) Then
             ActivateAllTabs()
         End If
-
-
         If RECORD_ENABLED = True Then
             ClassControlValues.UnloadControlValuesList(SELECTED_RECORD_ID, RECORD_ID, CtrlBuilder.AllControls)
         End If
+        If Not IsNothing(CtrlCommandUI) Then
+            'If CtrlCommandUI.IsInsert Then
+            '    CtrlCommandUI.IsInsert = False
+            'End If
+            If CtrlCommandUI.IsEdit Then
+                CtrlCommandUI.IsEdit = False
+            End If
+        End If
 
     End Sub
 
@@ -3081,6 +3083,7 @@ Public Class frmConstructor_Main
                 'End Try
 
             End If
+            CtrlCommandUI.IsEdit = False
             CtrlCommandUI.IsInsert = False
             RECORD_CHANGED = False
         End If