MS_11.12.2015

app/DD-Record-Organiser/ModuleHelperMethods.vb

@@ -117,7 +117,6 @@
     Public Function GetControlID_for_RecordID(name As String, recID As Integer) As Integer
         Try
             Dim SQL = "SELECT CONTROL_ID FROM VWPMO_VALUES WHERE RECORD_ID = " & recID & " and CONTROL_NAME = '" & name & "'"
-            If LogErrorsOnly = False Then ClassLogger.Add(">> " & SQL, False)
             Dim ID As Integer = ClassDatabase.Execute_Scalar(SQL)
             If ID > 0 Then
                 Return ID
@@ -169,13 +168,14 @@
 
         frm.Show()
     End Sub
-
-    Public Sub OpenFormOverview()
+    Public Sub Close_Maximized_Forms()
         For i = System.Windows.Forms.Application.OpenForms.Count - 1 To 1 Step -1
             Dim form As Form = System.Windows.Forms.Application.OpenForms(i)
             form.WindowState = FormWindowState.Normal
         Next i
-
+    End Sub
+    Public Sub OpenFormOverview()
+        Close_Maximized_Forms()
         Dim frm As New frmForm_Overview
         frm = frmForm_Overview.Instance()
         frm.MdiParent = MAIN_FORM