Replace/Delete Error Handling in All Subs 1

[SeadnaS]

Hi folks,

I have a large Access 2003 database with a lot of forms and I am implementing an error logging system based on a code module i found online. The module checks all of the forms subs/functions to see if there is error handling and if there is none it inserts error handling code into them. The error handling code I wrote calls another module which logs the error to a table in the database.

The problem is that there are so many subs in the project that already have error handling. I need to delete the error handling from these so that I can implement the new error handling code instead.

I could do it manually but there is so much code here it would be an unbearable long and tedious task. I need either an Add-in or some code to run in the immediate window to go in and find the error handling code of each sub and delete it or replace it with my error handling.

If anyone could provide some help it would be much appreciated.

Regards,

SeadnaS.

 

[PHV]

The module checks all of the forms subs/functions to see if there is error handling and if there is none it inserts error handling code into them
Can't you adapt this module to do what you want ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Remou]

Have a look at

http://www.mztools.com/v3/mztools3.aspx,

as far as I recall, it includes a tool for error handling.

http://lessthandot.com

 

[SeadnaS]

PHV no i can't. I'd love to know what to change but I don't. I've been searching all over the net for help on the issue as I'm not familiar enough with VBA to do this. I understand how the module works but i don't know how to change it to get it to do what I want.

Remou I have mz tools 3 and it does not do this. I does error handling but it cannot go through all of the project code and delete or replace all of the error handling unfortunately. Still a very useful add-in though.

Thanks for the responses guys.

 

[Remou]

How would you feel about coding up something to do this? There is a start here

http://lessthandot.com

 

[SeadnaS]

That looks great. How would I modify it to chop out the error handling from my procs? Obviously when the procedure name is mentioned it will be different for different procedures. So is it possible for it to find the error handling code when it will have different procedure names for each procedure?

This is what they look like:

Private Sub Command76_Click()
DoCmd.SetWarnings False: On Error GoTo Err_Command76_Click

[PROCEDURE_BODY]

Exit_Command76_Click:
Exit Sub

Err_Command76_Click:
Call ErrorLog(Err, Error$, Err.Source, Me.NAME, Erl)
Resume Exit_Command76_Click

End Sub

 

[SeadnaS]

So every time it finds a line with "On Error..." i want it to delete that line and every time it finds "Exit_...:" it deletes that line and everything below that line before end sub or end function. I just don't know how to code that.

 

[Remou]

See if this helps.

http://lessthandot.com

 

[SeadnaS]

That's absolutely fantastic!

 

[SeadnaS]

How do I run the code?

Main("Database Path","?")

 

[SeadnaS]

Ok sorry password. Silly me.

 

[SeadnaS]

I'm having a problem. I changed a line of code to match a line in some of the error handlers. Your original code works great but when I made this change to it it did nothing.

This is your original code on line 33:

''The list returned is of modules containing this line
sFind = "On Error GoTo Err_" & ProcArray(1, i)

This is what I changed it to:

''The list returned is of modules containing this line
sFind = "On Error GoTo " & ProcArray(1, i) & "_Err:"

Is there something i'm doing incorrectly?

 

[Remou]

The code is quite sketchy, so lines may appear more than once. In this case, the find line also occurs in the procedure GetErrProcs(oVBE, ProcArray). Did you change your line in both places?

http://lessthandot.com

 

[SeadnaS]

That was the problem. Thanks!