Application Event Procedure <Falling Over
Hi Peter
Thanks for response. Can someone explain what the suggested change to the
procedure
Sub Reset_EnableEvents()
If AppClass is nothing then
set AppClass = new ClassName
Set AppClass.App = Application
end if
End Sub
is doing because I dont yet understand.
Thanks
Tim
"Peter T" <peter_t@discussions wrote in message
...
Hi Tim,
If I follow you are trapping application level events and want to cater
for
the possibility the class holding the app ref has been destroyed, eg by
user
pressing the reset button. You could set a boolean flag, which if false
would indicate your variables have been destroyed. However you might just
as
well amend your routine -
Sub Reset_EnableEvents()
If AppClass is nothing then
set AppClass = new ClassName
Set AppClass.App = Application
end if
End Sub
I can't think of anything that will automatically tell you that your
AppClass no longer exists, so you would need to check periodically. In
theory you could trap the VBE Reset button-click event but there are other
ways your ref could be destroyed. Perhaps look into the OnTime method with
Schedule to run the amended Reset_EnableEvents routine (don't forget to
clear it when done).
Regards,
Peter T
|