ZooFlow

GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb

@@ -7,8 +7,6 @@ Public Class frmAdmin_IDBEntity
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
 
     Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
-        MyBase.New(My.LogConfig)
-
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
@@ -19,6 +17,7 @@ Public Class frmAdmin_IDBEntity
 
     Private Sub frmAdmin_IDBEntity_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
+            Init(My.LogConfig)
             TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
         Catch ex As Exception
             ShowErrorMessage(ex)