access-vba
Accesso ai codici di errore (Form.Error, DataErr)

Form.Error

Ecco il tipico gestore degli errori per una sottomaschera come tabella:

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 tutti gli errori

La gestione degli errori di base deve essere aggiunta a tutte le procedure nel codice di produzione, poiché in caso contrario un errore imprevisto causerà l'arresto anomalo di Access o l'invito dell'utente finale a entrare in modalità di debug.

Un modello tipico per un gestore di errori di base che intercetta tutti gli errori è:

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

Per una discussione più dettagliata sulla gestione degli errori in Access VBA, vedere:

• Gestione degli errori in VBA , di Allen Browne
• Suggerimenti e tecniche di gestione degli errori e debugging per Microsoft Access, VBA e Visual Basic 6 (VB6) , di Luke Chung

Errori di cattura e gestione nel codice utente

In caso di errore, spostati sul codice etichettato e controlla se c'è un errore specifico che deve essere gestito.

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