MS

app/DD-Record-Organizer/frmMain.vb

@@ -182,6 +182,17 @@ Public Class frmMain
         If ERROR_INIT = "INVALID USER" Then
             Exit Sub
         End If
+        If frmConstructor_Main.IsHandleCreated Then
+            If INSERT_IN_ACTION = True Then
+                Dim msg = "Bitte schliessen Sie zuerst das Hinzufügen des Datensatzes ab!"
+                If USER_LANGUAGE <> "de-DE" Then
+                    msg = "Please finish Your Adding-Procedure first!"
+                End If
+                MsgBox(msg, MsgBoxStyle.Information)
+                e.Cancel = True
+            End If
+        End If
+
         Try
             ClassUser.LogoutUser()
             ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")