closing a program

Do you have mulitple forms in the program and if so are you using

            Form2.Hide

This will make to form go away but not unload

            Unload Form2
or
            Unload Me

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

This will close the whole program when you click the X on a form.

Dear Jankhead,
    Let 's try to copy this code into your VB Project.

'Note. you need to add another CommandButton into your form.

 Option Explicit

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Terminate()
    MsgBox "Terminate"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MsgBox "Unload"
End Sub    

    You could see that whenver you push the CommandButton or click at the X Button, you would see the MessageBox "Unload" first and then follow with MessageBox "Terminate". That 's mean if you wish to guarantee that this form have been unloaded completely. You have to check it at the event Form_Terminate.

                                                                                          Meng

I assume it is because you have other forms still loaded.

Paste this code into the unload event of the form you click X on:


Private Sub Form_Unload(Cancel As Integer)

   For intCtr = (Forms.Count - 1) To 0 Step -1
      Unload Forms(intCtr)
   Next intCtr

End Sub

marcus03: this loop is really unnecessary. "End" is enough, he only wants to shut down the program.

Someone else asked this question a few days ago.

"End" hides and unloads every form and object in the program, and the process is destroyed.

If you only want the Form to shut down the entire program when the X is clicked, and NOT when you programmatically unload it, then use this:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then End
End Sub

Simple:
To unload all forms in your program:

Private Sub Form_Unload(Cancel as Interger)
Dim i as Interger
For i = Forms.Count - 1 to 1 Step -1
      Unload Forms(i)
Next
Exit Sub

This closes all of the open forms!

dipster, look at one of the comments above you... the one by marcus03...
Plus, this loop is REALLY unnecessary!

to yodant and otehs suggesting using

END

to terminate a program.  That is VERY VERY VERY VERY (get the idea) BAD advice.

Yes, End will cause the program to end - rather ABRUPTLY.  Using End to terminate a program is EXACTLY equivalent to stopping your car, by smashing is, at full speed, into a BRICK wall, because you are too lazy (or don't know how) to apply the brakes, and the turn off the ignition.  

Both techniques STOP the CAR, but the first technique is VERY BAD for anyone who might happen to be sitting in the car at the time.  So too with using END.  Yes, the program stops, but ALL memory allocations (such as open files, database connections, whatever) are NOT cleaned up, and that can  have potentially serious consequences for your computer.  NEVER use END, for any purpose.  If you program is left in memory, there MUST be a reason, and when you find out what that reason is, and reslove hat, then th program will terminated properly.

AW

That's true, but if you're a neat programmer, you won't leave any of these "footprints" - a good programmer closes all files he's finished with, closes database connections, and so on.

and in that case, the program closes NATURALLY, when the last form is unloaded and set to nothing, and the END statement is TOTALLY un-necessary.  Using END becomes a CRUTCH, a lazy-man's way out, if you will, and it is a VERY VERY bad habit ot get into.

AW

Well, if you say so...
I was "raised" to use END. Odd. :)

ok, that was alot of responces, which one should i use, please somone just tell me the best one.

You should go for the soulution first suggested by marcus03,  this is the 'standard' way of terminating VB applictions.

MY POINT, exactly!!!!

AW

Hi jankhead, you should accept an answer to close the question. I can't see why your question would not have been answered by these replies.

As it's the user closing the form he wants to capture, why not combine the form_terminate sub with proper code to unload all the forms??

Private Sub Form_Terminate()

   For intCtr = (Forms.Count - 1) To 0 Step -1
      Unload Forms(intCtr)
   Next intCtr

End Sub

jankhead:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1
EXPERTS:
Post your closing recommendations!  No comment means you don't care.

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:

 -->Accept drpunk's comment as Answer

Please leave any comments here within the next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER

GPrentice00
Cleanup Volunteer