Forms VisualBasic Script

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