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

すべてのエラーをトラップする

予期しないエラーによりAccessがクラッシュするか、エンドユーザーがデバッグモードに入るよう促すため、基本的なエラー処理を本番コードのすべてのプロシージャに追加する必要があります。

すべてのエラーをトラップする基本エラーハンドラの典型的なパターンは次のとおりです。

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でのエラー処理の詳細については、次を参照してください。

• Allen BrowneによるVBAでのエラー処理
• Luke Chung著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