How to check if form is open with VBA? 2

[steve728]

Will someone please send me a vba code sample of how to check if a form is open in the background?

Thx in advance.

Steve728

 

[TheAceMan1]

How are ya steve728 . . .

[blue]   If Currentproject.AllForms("FormName").IsLoaded Then
      [green]'Form Open code here[/green]
   Else
      [green]'Form Closed code here[/green]
   End if[/blue]

See Ya! . . . . . .

 

[Zion7]

and a couple of others...
_______________________________________
Sub LoadedForms()
'outputs all loaded forms
Dim frm As Form

For Each frm In Forms
Debug.Print frm.Name
Next frm

End Sub

____________________________________
Sub SysLoaded()
'Code sample from Accessory

http://www22.brinkster.com/accessory

'There are four states you can check for:
'acObjStateOpen - open
'acObjStateNew - new
'acObjStateDirty - changed but not saved
'0 (zero) - closed or non-existant

If SysCmd(acSysCmdGetObjectState, acForm, "frmSales") = acObjStateOpen Then DoCmd.Close acForm, "frmSales", acSaveYes