Finding Child Forms Closing Point

[magnetoxic]

hi everyone,
I am using a MDI form which contains many childs. I want to execute a certain code "only if the child is individually close". And I dont want that executed if the main MDI form is closed. I tried putting a boolean global variable in the MDI_Unload and MDI_Terminate events. And checking the boolean at the form_unload event of child, still the code executes.
Example:

Private Sub MDIForm_Terminate() 'In Main Form
CloseAllTabs = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Not CloseAllTabs Then MsgBox Me.Caption
End Sub

the message box pops up everytime. Even if MDIForm is closed. Help me.
thanks in advance.

[SamOscarBrown]

Deleted

[RhinoBull]

Assuming CloseAllTabs boolean variable is defined in the module...try the following.
Instead of MDIForm_Terminate use MDIForm_QueryUnload event handler:

'mdi form
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    CloseAllTabs = True
End Sub

'child form
Private Sub Form_Load()
    CloseAllTabs = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Not CloseAllTabs Then
        Debug.Print "Closing MDI Child form..."
    Else
        Debug.Print "Closing MDI form..."
    End If
End Sub

To see in what sequence events are triggered place Debug.Print <event name> in various events, then run and close the form.

[RhinoBull]

If you do that then you should get these results:

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Debug.Print "MDIForm_QueryUnload"
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Debug.Print "MDIForm_Unload"
End Sub

Private Sub MDIForm_Terminate()
    Debug.Print "MDIForm_Terminate"
End Sub

'results:
MDIForm_QueryUnload
MDIForm_Unload
MDIForm_Terminate

As you can see Terminate event is triggered last and after all child forms are closed - this is basically why your CloseAllTabs flag is still False.

[4x2y]

Use the event QueryUnload where you can know what cause the form close, e.g.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormMDIForm Then
        MsgBox "My MDI parent is closing"
    ElseIf UnloadMode = vbFormControlMenu Then
        MsgBox "Just me is closing"
    ' Add extra check for other UnloadMode (if you need)
    End If
End Sub

[RhinoBull]

@4x2y:

did you even read post #3 before posting?

[4x2y]

@4x2y:

did you even read post #3 before posting?

Sorry, i didn't intended to repeat your solution because i saw it after posting, unfortunately this is frequently happens.


Edit:
After reading your previous posts thoroughly, i detect that i didn't repeat because you are using the MDI's QueryUnload event while i'm using the child form's QueryUnload so there isn't any reason for a global variable.

[magnetoxic]

thank you so much Rhinobull and 4x2y, it helped