How can I check if a Form is already loaded?

[Michel Jr]

Hi,

How can I check if a Form is already loaded?


Thanks

Michel Jr.

[Stevie]

Hope this helps

Public Function FormIsOpen(strForm As String) As Boolean
'***************************************************************************
'Purpose:     Check if a given form is open or not.
'Parameters:  strForm - Name of the form to check for.
'Returns:     True/False - Form open?.
'***************************************************************************

Dim frm As Form
    
  FormIsOpen = False
  
  For Each frm In Forms
    If frm.Name = strForm Then FormIsOpen = True
  Next frm

End Function

[Big_Berdie]

That's some neat code Stevie, but can't you just check the visible property of the form???

if form1.visible = true then
' the form is already loaded
end if

Or would the form have to have focus for this to work?
Just an idea.....

[Iain17]

Big_Berdie,

If the form you were testing the visible propert of was not loaded, it will be now.

As soon as you refrecnce a property of the form, the form is loaded into memory. So Stevie's way is the way to do it.

[jtm7699]

Plus a form can be loaded, but not visible. If you use the "Load Form" then form_load routine is run, but the form is not visible until the form.visble = true is run.