Writing the Form_Error Event Procedure

 
Private Sub Form_Error(DataErr As Integer, Response As Integer) 
    Dim custId As String 
    
    Const conDuplicateKey = 3022 
    
    If DataErr = conDuplicateKey Then 
        Response = acDataErrContinue 
        Debug.Print "Customer " & custId & " already exists." 
    End If 
End Sub

Related examples in the same category

1.	Assign form Recordset in its open action
2.	CancelEvent: DoCmd.CancelEvent()
3.	IsLoad function
4.	Form Before Update action
5.	The Undo event executes before changes to a row are undone.
6.	Key down event
7.	If the data in the form dirty
8.	Form_Filter
9.	You can not only check how the filter was invoked, but you can also intercept the process when the filter is applied.
10.	The Load Event Assigning a Recordset Object to the Form
11.	Code for the Move Previous Button
12.	Code for the Move Next Button
13.	Code for the Add Button
14.	Deleting a Record
15.	Code for the Find Button

Writing the Form_Error Event Procedure : Form Events « Forms « VBA / Excel / Access / Word

Related examples in the same category