This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
vba:classes:log4vba [09.03.2018 11:01:57] yaslaw [info()] |
vba:classes:log4vba [21.10.2019 12:10:41] (current) yaslaw |
||
---|---|---|---|
Line 1: | Line 1: | ||
<const> | <const> | ||
- | version=1.5.1 | + | version=1.5.6 |
- | vdate= 28.6.2017 | + | vdate= 21.10.2019 |
fname=log4vba.cls | fname=log4vba.cls | ||
ns=%NAMESPACE% | ns=%NAMESPACE% | ||
Line 16: | Line 16: | ||
{{%%fname%%|Download %%fname%% (V-%%version%%)}}</WRAP> | {{%%fname%%|Download %%fname%% (V-%%version%%)}}</WRAP> | ||
- | Mit dem Errohandling und Debug-Inrmationen in VBA ist es immer wieder mühsam, jedesmal alles auszuprogrammieren. Darum habe ich für mich diese Klasse geschrieben. Sie ist einfach zu implementieren und ermöglicht ein einheitliches Error-Handling über ein gesammtes Projekt. | + | Mit dem Errohandling und Debug-Informationen in VBA ist es immer wieder mühsam, jedesmal alles auszuprogrammieren. Darum habe ich für mich diese Klasse geschrieben. Sie ist einfach zu implementieren und ermöglicht ein einheitliches Error-Handling über ein gesammtes Projekt. |
===== Definitionen ===== | ===== Definitionen ===== | ||
Line 497: | Line 497: | ||
' */ | ' */ | ||
Public Function writeToConsole(ByVal iLogType As eLogType, ByVal iText As String) | Public Function writeToConsole(ByVal iLogType As eLogType, ByVal iText As String) | ||
- | If Not CurrentProject.AllForms("FRM_SYS_CONSOLE").IsLoaded Then DoCmd.OpenForm C_CONSOLE | + | If Not CurrentProject.AllForms("FRM_SYS_CONSOLE").IsLoaded Then DoCmd.OpenForm "FRM_SYS_CONSOLE" |
Form_FRM_SYS_CONSOLE.log iText | Form_FRM_SYS_CONSOLE.log iText | ||
End Function</code> | End Function</code> |