access-vba
Codes d'erreur d'accès (Form.Error, DataErr)

Form.Error

Voici un gestionnaire d'erreur typique pour un sous-formulaire en tant que table:

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

Trap toutes les erreurs

La gestion des erreurs de base doit être ajoutée à toutes les procédures du code de production, sinon une erreur inattendue entraînera le blocage d'Access ou invitera l'utilisateur final à passer en mode de débogage.

Un modèle typique de gestionnaire d’erreur de base qui intercepte toutes les erreurs est le suivant:

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

Pour plus de détails sur la gestion des erreurs dans Access VBA, voir:

• Gestion des erreurs dans VBA , par Allen Browne
• Astuces et techniques de traitement des erreurs et de débogage pour Microsoft Access, VBA et Visual Basic 6 (VB6) , par Luke Chung

Capture et traitement des erreurs dans le code utilisateur

En cas d'erreur, passez au code étiqueté et vérifiez s'il existe une erreur spécifique à gérer.

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