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