Microsoft Access VBA Vorlage für Funktion mit Fehlerbehandlung
Mit Hilfe dieser VBA Vorlage für Funktion bauen Sie eine standardisierte Grundstruktur für neue VBA-Funktionen oder Subs für Microsoft Access VBA-Projekte auf. Die Verwendung ist auch in anderen Microsoft Office Programmen, wie Word oder Excel möglich.
Diese Vorlage liefert das Grundgerüst einer Funktion mit Fehlerbehandlung. Kopieren Sie die Zeilen in Ihr VBA-Projekt und ersetzen Sie alle „XXX“ durch den Namen Ihrer Funktion. Für die Verwendung als SUB ersetzen Sie „Function“ in Zeile 1 und in den Zeilen 7 und 23 durch „SUB“.
Function XXX()
On Error GoTo XXX_err
' insert your code here
XXX_exit:
Exit Function
XXX_err:
Dim err_msg
Dim msg_ret
err_msg = "Fehler " & Err & ": " & Err.Description
msg_ret = MsgBox(err_msg, 50, " Fehler")
Select Case msg_ret
Case 3
Resume XXX_exit
Case 4
Resume 0
Case 5
Resume Next
End Select
End Function