access-vba
प्रवेश त्रुटि कोड (फ़ॉर्म। डेटा, डेटा)

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

पहुँच 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