3.4.4.0

app/DD-Record-Organizer/frmDoc_Links.vb

@@ -8,6 +8,7 @@ Imports Microsoft.Office.Interop.Outlook
 Public Class frmDoc_Links
 
     Private ENTITY_ID As Integer = 0
+    Private form_shown As Boolean = False
     Public Property Documents As New List(Of ClassDocGrid.clsWMDoc)
 
     Private Sub frmDoc_DocLinks_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -23,7 +24,7 @@ Public Class frmDoc_Links
 
             ' TODO: this does not work for the old form
             If Documents.Count = 0 Then
-                Text = $"Document-Links for: NODOC-ID"
+                Text = $"Document-Link for: NODOC-ID"
             ElseIf Documents.Count = 1 Then
                 Text = $"Document-Links for: {Documents.First.DocPath}"
             Else
@@ -47,6 +48,7 @@ Public Class frmDoc_Links
         Catch ex As System.Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in frmDoc_DocLinks_Load", ex.Message, ex.StackTrace)
         End Try
+        form_shown = True
     End Sub
 
     Private Function Get_Grid_Data(pDocuments As List(Of ClassDocGrid.clsWMDoc)) As DataTable
@@ -155,6 +157,9 @@ Public Class frmDoc_Links
 
     End Sub
     Sub Save_DocGrid_Layout()
+        If form_shown = False Then
+            Exit Sub
+        End If
         Try
             Dim XMLPath = Get_DocGrid_Layout_Filename()
             grvwGrid.SaveLayoutToXml(XMLPath)