Error Handling In Visual Basic Projects

Download Error Handler (Right Click And Select Save Target As... )

URL For Download: http://helia2000.tripod.com/index_files/ErrorHandler.htm

Hello

When A System Developed By Programmer The Important Step IS Supporting System and

Debugging System The most Popular Step Is Reporting Bugs By Users That Using This Systems But Somtimes Users Dont Reports Error.

My End Goal Of This Error Handler Program Is Help to VB system Developers To Reporting This Bugs. This System Is Very UseFull Tools For This Idea.It Is Inserts Error HAndler Tag In Vb Forms By This Error Handling You Can see Which User Have Error and What Is The error Descrpition And Which Module Or form Or UserControl Or Reports Has erros And In This Form Or UserControl Or Reports Which Function Or Sub Has errors .

You Can Remove This Error Handler TAg After Inserting Easily.

I Use This Syetem In Four Big Syestem Like Accounting... And I Acquiesce from This Tool

Please Send Me your FeedBack About This Program To Improve It.

Thank you

Sample Code Before Change

Private Sub Form_Load()
'My Code Starts here

'My code end Here

End Sub

Sample Code After Inserting Error Handler

Private Sub Form_Load()
On Error GoTo Err_Label: '*ErrorHandler Tag*'
Dim StrSubName As String '*ErrorHandler Tag*'
Dim ErrorDescription As String '*ErrorHandler Tag*'
StrSubName = "Form_Load" '*ErrorHandler Tag*'
Me.MousePointer = 11 '*ErrorHandler Tag*'

'My Code Starts here

'My code end Here

Me.MousePointer = 1 '*ErrorHandler Tag*'
Exit Sub '*ErrorHandler Tag*'
Err_Label: '*ErrorHandler Tag*'

ErrorDescription = Me.Name + "-->" + StrSubName + "-->" + Err.Description '*ErrorHandler Tag*'
MsgBox ErrorDescription + vbCrLf + "Please Contact With Your System Administrator", vbCritical, "ERROR HANDLER" '*ErrorHandler Tag*'
MousePointer = 1 '*ErrorHandler Tag*'
ErrorDescription = Replace(ErrorDescription, "'", " ") '*ErrorHandler Tag*'
MainConnection.Execute "INSERT INTO Errors_Log (ComputerName,Error_Date,Error_Time,UserName,Error_Description) VALUES ('" + sGetComputerName + "','" & Date & "','" & Time & "','" & CurUser & "','" & ErrorDescription & "')" '*ErrorHandler Tag*'
End Sub

Houshang Karami

Iran-Tehran

My Email Is: Houshang.karami@gmail.com