access-vba
Zugriffsfehlercodes (Form.Error, DataErr)

Form.Error

Hier ist ein typischer Fehlerhandler für ein Unterformular als Tabelle:

Public Const cErrCodeValueRequierd = 3162
Public Const cErrCodeDuplicateKey = 3022

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case cErrCodeDuplicateKey
            MsgBox "Duplicate records are not allowed!", vbExclamation, "Key violation"
            Response = acDataErrContinue
        Case cErrCodeValueRequired
            MsgBox "Field ""fieldName"" requires data!""
            Response = acDataErrContinue
        Case Else
            MsgBox "Other error. Error code: " & DataErr    
    End Select
End Sub

Alle Fehler abfangen

Grundlegende Fehlerbehandlung sollte allen Prozeduren im Produktionscode hinzugefügt werden, da andernfalls ein unerwarteter Fehler zum Absturz von Access führt oder den Endbenutzer zum Debug-Modus einlädt.

Ein typisches Muster für einen grundlegenden Fehlerbehandler, der alle Fehler auffängt, ist:

Sub Name()
On Error GoTo errHandler

'[some code...]

exitHandler:
    'Clean up any objects
    Exit Sub

errHandler:
    Select Case Err.Number
        'Any expected error cases go here
    Case Else
        MsgBox Err.Number & Err.Description
    End Select
    Resume exitHandler   'Make sure objects get cleaned up when code threw an error
End Sub

Ausführliche Informationen zur Fehlerbehandlung in Access VBA finden Sie unter:

• Fehlerbehandlung in VBA von Allen Browne
• Tipps und Techniken zur Fehlerbehandlung und zum Debuggen für Microsoft Access, VBA und Visual Basic 6 (VB6) von Luke Chung

Fehler im Benutzercode abfangen und behandeln

Wechseln Sie bei einem Fehler zu gekennzeichnetem Code und prüfen Sie, ob ein bestimmter Fehler behandelt werden muss.

Public Const cErrCodeNotNumber = 2262   ' This value must be a number.
Public Const cErrCodeNumericOverflow = 2263   ' The number is too large.

Private Sub MySub()
    Dim objConn As ADODB.Connection
    Dim objCmd As ADODB.Command
    Dim objRS As ADODB.Recordset
    'etc.

    On Error Goto ErrHandler
    [...My code goes here...]

ExitSub:
    'Cleanup
    If objConn.State <> adStateOpen Then objConn.Close 'Closing connection to database, if it is still open
    If Not objRS Is Nothing Then objRS.Close
    objConn = Nothing
    ObjRS = Nothing
    'Do any other cleaning.
    Exit Sub

ErrHandler:
    Select Case Err.Number
        Case cErrCodeNotNumber
            MsgBox "The value found is not a number. Execution stopped.", vbCritical
        Case cErrCodeNumericOverflow
            MsgBox "The value found is too big. [instructions how to resolve this]", vbCritical
        Case Else
            MsgBox "Error " & Err.Number & ". " & vbCrLf & Err.Source & "--->" & Err.Description, "Unrecoverable error", vbCritical
    End Select
    
    Goto ExitSub
End Sub