Identify an MDIform in the Forms collection? [Resolved]

[DaveBo]

How can I identify an MDIform (parent) when I'm looping through the forms collection?

Here's the problem:

When I loop to find the child forms:
For each frm in Forms
If frm.MDIChild Then ...

The 2nd line there fails when it hits the MDI "parent" since it has no .MDIChild property to check!

So, what I'd like to do is something like:
For each frm in Forms
If "NOT an MDI parent form" then
If frm.MDIChild Then ...


Thanks, DaveBo

[johnweidauer]

Private Sub Command1_Click()
Dim f As Form

For Each f In Forms
    If InStr(1, f.LinkTopic, "MDI", vbTextCompare) = False Then
        Unload f
    End If
Next

End Sub

Set your LinkTopic to contain "MDI" so it is identified as the MDI parent and it will not close it

[DaveBo]

Thanks. BTW it doesn't like the vbTextCompare,
that results in a "type mismatch"