access-vba
Коды ошибок доступа (Form.Error, DataErr)

Form.Error

Вот типичный обработчик ошибок для подформы в виде таблицы:

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

Ловушка всех ошибок

Основная обработка ошибок должна быть добавлена ​​ко всем процедурам производственного кода, поскольку в противном случае непредвиденная ошибка приведет к сбою доступа или вызову конечного пользователя для входа в режим отладки.

Типичный шаблон для основного обработчика ошибок, который задерживает все ошибки:

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

Более подробное описание обработки ошибок в Access VBA см. В:

• Обработка ошибок в VBA , Аллен Браун
• Советы по ошибкам и методы отладки для Microsoft Access, VBA и Visual Basic 6 (VB6) , Люк Чунг

Ловушка и обработка ошибок в коде пользователя

При ошибке перейдите к помеченному коду и посмотрите, есть ли конкретная ошибка, которая должна быть обработана.

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