Determine if a form is open 8

[KornGeek]

Is there a way in VB to determine if a form is open or not?

When I'm on FormA, I want to display a message if FormB is open.

Essentially, I want to only allow one of the two forms to be open at a time. If they try to open the second, I want to force them to choose which one they want open.

Thanks for your help.

 

[beetee]

you can tell if a form is open with a function like this:

Function FormIsOpen(FormName As String) As Boolean
On Error Resume Next
Dim MyForm As Form
Set MyForm = Nothing
Set MyForm = Forms(FormName)
FormIsOpen = Not MyForm Is Nothing
End Function


then, to trap the form open, create an event procedure for the formOpen event

Private Sub Form_Open(Cancel As Integer)
Cancel = FormIsOpen("Blah&quot
End Sub

 

[PWise]

great piece of code gave you a star

 

[KornGeek]

I agree that this is some good code. Thank you for the quick response. Have another star.

 

[FancyPrairie]

Here's how you do it in Access 2000.

If (CurrentProject.AllForms("FormB&quot.IsLoaded) then
Msgbox "form is loaded"
Else
Msgbox "form is not loaded"
end if

 

[mp9]

Personally I prefer the SysCmd method which takes the syntax

ObjectState = SysCmd(action[, objecttype][, objectname])

Not only does this let you find out if a form is open, it tells you its status. It can also be used for objects other than forms, but here's a form based example.

Dim bytState as Byte
bytState = SysCmd(acSysCmdGetObjectState, acForm, "frmNameHere")

Note that this returns a value that is any combination of the following constants:

Constant: acObjStateOpen
State: Open
Value: 1

Constant: acObjStateDirty
State: Changed but not saved
Value: 2

Constant: acObjStateNew
State: New
Value: 4

http://www22.brinkster.com/accessory/

 

[KornGeek]

Wow. Thanks for the help everybody. These are all great suggestions showing 3 different ways to do something that I wasn't even sure was possible. You guy are great. I love Tek-Tips.