access-vba
Toegangsfoutcodes (Form.Error, DataErr)

Form.Error

Hier is een typische foutafhandeling voor een subformulier als een tabel:

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 alle fouten

Basisfoutafhandeling moet worden toegevoegd aan alle procedures in de productiecode, omdat anders een onverwachte fout ertoe leidt dat Access crasht of de eindgebruiker uitnodigt om in de foutopsporingsmodus te komen.

Een typisch patroon voor een basisfoutafhandelaar die alle fouten vasthoudt is:

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

Zie voor een meer gedetailleerde bespreking van foutafhandeling in Access VBA:

• Foutafhandeling in VBA , door Allen Browne
• Tips en technieken voor foutafhandeling en foutopsporing voor Microsoft Access, VBA en Visual Basic 6 (VB6) , door Luke Chung

Vang- en verwerkingsfouten in gebruikerscode

Ga bij fout naar gelabelde code en kijk of er een specifieke fout is die moet worden afgehandeld.

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