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