Name of loaded forms

[asmall]

I'm trying to capture the name of the forms that are loaded.
This is the code I'm using:

Public Function IsLoaded(ByVal strFormName As String) As Boolean

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

Anyone have any suggestions?

 

[SBendBuckeye]

Each form that is loaded (either design or runtime) is added to the forms collection. To spin through it try something like the following:

Dim frm As Object
MsgBox &quot;Open Forms: &quot; & Forms.Count
For Each frm In Forms
MsgBox frm.Name
Next frm

Good LucK!

Have a great day!

j2consulting@yahoo.com