Form error trapping

[neilmcmor]

I am struggling to get my head around error trapping. I stuck this bit of code in the Forms VBA to get error codes but get nothing returned. The form is called Prisoner_Details. Can anyone help

Public Sub Form_Error(DataErr As Integer, Resonse As Integer)
MsgBox DataErr

End Sub

 

[ZmrAbdulla]

MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description


________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[JoeAtWork]

Error handling is done at the subroutine/function level. The basic outline is:

Private Sub MySub()
  On Error GoTo MyErrHandler

  '......Your code here......

  Exit Sub   'You need this to keep it from "falling through"
             'to the error handler if there are no errors

MyErrHandler:
  'Handle the error as you see approriate, use the Err.Number
  'and Err.Description properties to get information
  'about the error
End Sub

The Form_Error traps certain Access-specific errors. You commonly use it to replace Access error messages with your own user-friendly messages. Sometimes the errors here are more of the "warning" kind, and you can use this subroutine to suppress the Access error message.

But it's not an overall error trapper, any mundane error (like trying to open a file on a path that doesn't exist) will only be trapped in the subroutine level error handler such as the one in my example.

 

[Underling]

Here is my code

On Error Goto ErrHanler

'Code in here, if error happens the ErrHandler will take over.


ExSub: 
Exit Sub
ErrHandler:
msgbox "Error Number: " & err.number & " - " & err.discription, vbInformation, "Opps: ERROR!"
Goto ExSub
End Sub

 

[MajP]

I also like to add the subroutine's name to the message which helps a lot in debugging.

 

[neilmcmor]

Thanks guys. sorted now