Christoph Jüngling EDV

Grundgerüst mit Fehlerbehandlung

In einer Funktion

In Verbindung mit der Typdeklaration und diesen beiden Funktionen sieht das Grundgerüst einer Funktion mit Fehlerbehandlung dann folgendermaßen aus:

Public Sub Fehlerbeispiel()
 
 Const FUNCTION_NAME = "Fehlerbeispiel"
 Dim es As tErrorSave
 
 ' ... weitere Variablendeklarationen ...
 
 '-------------------------------
 
 On Error GoTo Catch
 
 ' ... Anweisungen ...
 
 '-------------------------------
 Final:
 On Error Resume Next
 
 ' ... Aufräumarbeiten ...
 
 On Error GoTo 0
 RaiseSavedError es
 
 Exit Sub
 
 '-------------------------------
 Catch:
 es = ErrorSave(FUNCTION_NAME)
 
 ' ... bei Bedarf direkte Fehlerbehandlung ...
 
 Resume Final
 
 End Sub

In einer Klasse

Auf Klassenebene wird zusätzlich eine Konstante deklariert, die den Namen der Klasse beinhaltet:

Private Const CLASS_NAME = "Klassenname."

Die Konstante "FUNCTION_NAME" in jeder Funktion bleibt erhalten, lediglich der Aufruf der Funktion "ErrorSave" erfolgt dort mit einer Ergänzung:

es = ErrorSave(CLASS_NAME & FUNCTION_NAME)

Dadurch ergibt sich für die "Source"-Eigenschaft die übliche Schreibweise "Klassenname (punkt) Funktionsname", was als leicht verständlich angesehen werden kann.