It is possible to save changes before a program shuts down like on an error?

[Eric_B]

It is possible to save changes before a program shuts down like on an error?


Thanx

[MartinSmith]

Why is the program shutting down? Is it an unhandled error in your app. or a system error?

[AAG]

During your programs operation, you could put

Private Sub testfunc()
On Error goto ErrCatch:
 
'Code Goes Here
 
ErrCatch:
'Enter Code to Save Data
Msgbox "An error has occurecd", vbexclamation, "Error"
End Sub

[Eric_B]

at the begining of every function and sub?

[AAG]

if every sub has a probably cause to produce an error then yes. i would create a function to save the data a produce the msgbox to save on code type, for example

Private Sub ErrTest ( )
On Error Goto ErrCatch:
 
'code goes here
 
ErrCatch:
DisplayError
end sub

Public Sub DisplayError()
'Code to save data
'display msgbox
End Sub

[mporter]

It might be quite dangerous doing this, I wrote a excel macro which saved the document when an error occurred. Unfortunately it was in a template and when I wrote it and couldn't save itself to the correct directory as it was written to save the doc based on the document not the template. This led to it saving itself with an error status in the macro which, when I tried to open it again Dr. Watsonned Excel. I can't remember how I got round it now, I think I automatically closed the app without saving if this happenned probably the safest thing to do in the circumstances.