Um Ihre Fehlerprozedur auf VBA zu basieren, setzen Sie zunächst die Eigenschaft Bei Fehler Ihres Formulars auf [Ereignisprozedur]. Geben Sie dann folgende Zeilen im Code-Fenster ein.
Private Sub Form_Error(DataErr As Integer, Response As Integer)
' Fehlernummer ausgeben
MsgBox DataErr
If DateErr = 30 Then
DoCmd.RunMacro "MeinMakro"
Response = acDataErrContinue
Else
Response = acDataErrDisplay
End If
End Sub
Der Parameter DataErr enthält eine eindeutige Fehlernummer, die Sie prüfen können. In diesem Beispiel wird das Makro MeinMakro ausgeführt, falls Fehler 30 auftreten sollte.
Alle anderen Fehler werden mit einer normalen Fehlermeldung quittiert.