Checking for opened form

[John]

Hi

How can I check if a form is already open?

Thanks

Regards

 

[Gina Whipp]

John,

This always woks for me...

In a module... (TIP: Do NOT name the module IsLoaded!)

Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet
view.

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

Then place the below on an Event Procedure of the form from which you want
to check if another form is open.

If IsLoaded("YourFormHere") Then
Do Something Here
Else
Do Something Else Here
End If

 

[fredg]

Hi

How can I check if a form is already open?

Thanks

Regards

What version of Access?
Access 2000 or newer?

If Not CurrentProject.AllForms("FormA").IsLoaded Then
Do something here
Else
Do something else
End If

In Access 97, copy this function (from the Northwind.mdb sample
database) into a module:

Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open in Form view or
Datasheet view.

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

Then code some event:
If Not IsLoaded("FormA") Then
Do this
Else
Do that
End if

 

[John]

conObjStateClosed and conDesignView both zero?

Regards