access-vba
Kody błędów dostępu (Form.Error, DataErr)

Form.Error

Oto typowa procedura obsługi błędów dla podformularza jako tabeli:

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 All Errors

Do wszystkich procedur w kodzie produkcyjnym należy dodać podstawową obsługę błędów, ponieważ w przeciwnym razie nieoczekiwany błąd spowoduje awarię programu Access lub zaprosi użytkownika końcowego do przejścia w tryb debugowania.

Typowy wzorzec podstawowej procedury obsługi błędów, która przechwytuje wszystkie błędy, to:

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

Aby uzyskać bardziej szczegółowe omówienie obsługi błędów w programie Access VBA, zobacz:

• Błąd obsługi w VBA , Allen Browne
• Porady i techniki obsługi błędów oraz debugowania dla Microsoft Access, VBA i Visual Basic 6 (VB6) , autor: Luke Chung

Błędy przechwytywania i obsługi w kodzie użytkownika

W przypadku błędu przejdź do oznaczonego kodu i sprawdź, czy wystąpił określony błąd, który należy naprawić.

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