Custom error message problem

[thekruser]

I am trying to create a custom error message. I am getting a very odd responce. On error, I get an Access-generated Runtime error '3022'. If I hit End then try to close the form, I get my custom error message.



The first text box on the form is for Employee ID. After update, it should be validated and if duplicate, show the custom error message. The Access message should not show at all. Can someone please have a look at this an help me understand where I am going wrong?

Thanks in advance for your time and help. Have a good day!

Here is what I have:

Option Compare Database
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conErrDuplicateKey = 3022
Select Case DataErr
   Case conErrDuplicateKey
      MsgBox "The Employee Number you entered already exists."
      Response = acDataErrContinue
   Case Else
      ' It's an unexpected error.  Let Access handle it.
       Response = acDataErrDisplay
End Select
End Sub
 
Private Sub cmdContinue_Click()
Dim rs As Object
Dim lngBookmark As String
    'set a variable to the current record
    lngBookmark = Me.EmployeeID
    
    'open the new form
    DoCmd.OpenForm "frmIndividualDataEdit"
    'take it to the selected record
    Set rs = Forms!frmIndividualDataEdit.RecordsetClone
    rs.FindFirst "EmployeeID = '" & lngBookmark & "'"
    Forms!frmIndividualDataEdit.Bookmark = rs.Bookmark
    Set rs = Nothing
    DoCmd.Close acForm, "frmAddNewJoin"
    
End Sub
 
Private Sub EmployeeID_AfterUpdate()
    If Me.Dirty Then Me.Dirty = False
End Sub

[ajetrumpet]

You may be getting the runtime error message if you have "Break on all errors" enabled. Check the TOOLS > OPTIONS menu in the VBE and see if that is checked (check box).

If it is, error handlers are irrelevant in procedures because Access will error out if an error is encountered.

[thekruser]

@ajetrumpet

Thank you for the reply. I checked and it is an option group not a check box. My options are:

'Break on All Errors'
'Break in Class Module'
'Break on Unhandled Errors' (selected)

Is that right?

[ajetrumpet]

yes that is right. BREAK ON ALL ERRORS in what you want unchecked. If it's checked, that's the primary issue. I believe the "break on unhandled" means that the VBE will check for an "On Error" statement present in each procedure at runtime.

[thekruser]

Tried all three options. Same result on all tries. Back to square one...

[ajetrumpet]

Tried all three options. Same result on all tries. Back to square one...

if you upload the file, I'm sure I'll have time to look at it. others might to.

[thekruser]

Here it is. Thank you for your time and help.

[ajetrumpet]

Here it is. Thank you for your time and help.

please tell us what exactly to look for and what to do to duplicate the error.

[thekruser]

Open frmAddNew and enter an EmployeeID that exists. You get a runtime error. The custome error message only shows after you close the Access error and try to close the form.

[ajetrumpet]

kruser,

I forgot about this thread....sorry about that. I've been busy with a few things. I realized I forgot when I saw this: http://www.access-programmers.co.uk/...d.php?t=199552

If you do get a response over there please let people know here. I'll try and look at your file tomorrow sometime if I get a chance...unless someone else takes a peek first.

[thekruser]

Sorry it took so long for me to respond. I did get an aswer there. I do not have access to it here...damn IT policies. Either way, the answer is still on that link.

Thanks for your reply!!