Unload mdichild if it is loaded 1

[biddingbong]

Hello everybody, Ive got an MDI form and when endinf the app I want to unload the mdichild first and then END. But the problem is that when there is no mdichild loaded I get an error.
I tried this code:
'Me is the MDI
If Me.ActiveForm <> Nothing Then Unload Me.ActiveForm

But I still get errors.

 

[CasperTFG]

Try....

Dim i As Integer

For i = 0 to Forms.Count
    If Forms(i).MDIChild = True then
        Unload Forms(i)
    End If
Next i

Casper

There is room for all of gods creatures, "Right Beside the Mashed Potatoes".

 

[SonOfEmidec1100]

You should not be doing an END but unloading the MDIForm then when you unload the MDIform it will automatically unload all the child forms.

Also the code previously provided will not work - you will get an error as MDIChild is not a valid property for an MDIform. Forms.count is not a vaild subscript (s/b forms.count-1), also as you remove forms the index changes and the upper bound goes down giving a subscript out of range error. My version -

Dim f As Form

For Each f In Forms
    If f.Name <> Forms(0).Name Then  'forms(0) is the MDIForm
     Unload f
    End If
Next