[RESOLVED] Programing the X (exit) button

[stilekid007]

Hello,

In the Right hand top corner of every page is a X (Exit) button.

Is there anyway to program the code for this?

The reason I ask is because when I click it (On my program's window) It closes the app BUT does not close it in the Taskmanager window.

Thank you for any help you may have!

Stilekid007

[RhinoBull]

If you have more than one form open you'd have to loop throyugh forms collection and close each form before you unload your main form. Also each form (upon closing) must destroy all object variables including (but not limited to) connection/recordsets/collections/etc...

Private Sub Form_Unload
Dim frm As Form
 
    Form Each frm In Form
        If Not frm.name = Me.Name Then
            Unload frm
        End if
    Next frm
 
End Sub

[stilekid007]

Ah,

I see,

Thank you for that information!
Stilekid007

[RobDog888]

You should actually use the queryunload event for unloading all forms to quit an app. This event is raised when you click on the x button.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
End Sub

[RhinoBull]

You should actually use the queryunload event for unloading all forms to quit an app. ...

Not necessary. It's mainly usefull if you don't want user to quit "prematurely"...

[RobDog888]

Not necessarily true as if the system shuts down unexpectedly you can catch it by evaluating the Unload Mode parameter. Same for Windows session ending and other events.

[stilekid007]

Ok, Great!

Thank you so much guys!

Stilekid007

[RhinoBull]

Not necessarily true as if the system shuts down unexpectedly you can catch it by evaluating the Unload Mode parameter. Same for Windows session ending and other events.

It is true - if app is shut down "unexpectedly" then what do you care about QueryUnload mode ...

[RobDog888]

Like if you have an open connection to an Access database which when unexpedly terminated can cause databaase corruption.

[RhinoBull]

Common really... terminating application/connection doesn't cause any corruption ... are you kidding me?

[RobDog888]

Obviously you havent worked with as many Access dbs as I have. I have seen it happen several times over the past few years. Now granted it may not happen every single time but if you dont have a backup and cant repair the db after a corruption, I'll bet you will wish you would have done all you could have to protected it instead of loosing your db and data.

[RhinoBull]

[color=navy]Obviously you havent worked with as many Access dbs as I have. ...

Not to offend you but you havent even seen that many yet.
But I wish we can stop this quite useless conversation. Sorry.

[RobDog888]

same here.