'/**
' * Funktion um die Logger-Beiträge in das Konsolenformular zu schreiben
' * Die Typen und Reihenfolge der Paramter sind durch log4vba definiert
' * @param  eLogType
' * @param  String
' */
Public Function writeToConsole(ByVal iLogType As eLogType, ByVal iText As String)
    If Not CurrentProject.AllForms("FRM_SYS_CONSOLE").IsLoaded Then DoCmd.OpenForm "FRM_SYS_CONSOLE"
    Form_FRM_SYS_CONSOLE.log iText
End Function