[Resolved]Simple: Why doesnt this on unload code work?!

[squakMix]

I have coding that looks like:

Private sub Form_Unload(Cancel as Integer)
End
End sub

For some reason, when i click the close button, Nothing happends. My form's startup is main, and main calls for form1 to load. End unloads the WHOLE program. For some reason, It's just ending Form1, and Main is calling it back up. I put a close COMMAND button on it, and gave it the coding :

Private Sub Command1_click()
End
End Sub

And it worked fine! Can i have a little help here? Thanks!

[Bruce Fox]

You shouldn't use End.

This is a better approach:

Private Sub Command1_click()
    Unload Me '(Which will envoke Form_Unload())
End Sub
 
Private sub Form_Unload(Cancel as Integer)
    Dim objFrm As Form
 
    For Each objFrm In Forms
        Unload objFrm
        Set objFrm = Nothing
    Next
 
    Cancel = False
 
End Sub

[mendhak]

It's better to place that code in Form_QueryUnload()

[squakMix]

bruce, your coding doesnt work.

[mendhak]

His code is correct. Do an F8, and see where it jumps out of the normal expected sequence of code.

[squakMix]

Yea, i put it in a form query unload, and it worked. Thanks for the feedback!

[mendhak]

That's good, but I still don't see why it wouldn't work in Form_Unload() :***:

[squakMix]

It's Because i have a module that does something like:
Sub Main()
Form1.Show
End Sub

Main sub is the startup object.

[Bruce Fox]

Sorry, it (my original code) was in a Query_Unload Event... I just screwed up when I amalgamated it with squakMix's original code.

[mendhak]

Originally posted by squakMix
It's Because i have a module that does something like:
Sub Main()
Form1.Show
End Sub

Main sub is the startup object.

Oh NOW you tell us.

[squakMix]

Wait, im wrong. your right mendhak, I dont know why it didnt work with Unload.
Must have been something in the rest of my coding...

[mendhak]

Originally posted by squakMix
Wait, im wrong. your right mendhak, I dont know why it didnt work with Unload.
Must have been something in the rest of my coding...

Unloading a form might call the modules Sub Main() event. I'll just check it out and be right back.

Wait for me. Don't move a muscle!

[mendhak]

Everything works for me. I hope it's something in your code, for your sake.

[squakMix]

OOOH, i see why. I have a loop in my Main() event... I Forgot i had that... It has to do with a system Wide hook that im initializing on Main.

[mendhak]

Originally posted by squakMix
OOOH, i see why. I have a loop in my Main() event... I Forgot i had that... It has to do with a system Wide hook that im initializing on Main.

OH, NOW you tell us!