Check Form open status

  • Thread starter Thread starter Guest
  • Start date Start date
Can someone please tell me How I can check to see if a form is Open? Thanks
Click to expand...

What version of Access?
Access 2002:
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).

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:
If Not IsLoaded("FormA") Then
Do this
Else
Do that
End if
 
Assuming Access 2000 or later ...

If CurrentProject.AllForms("FormName").IsLoaded Then

For earlier versions of Access, you'll find an 'IsLoaded' function in the
sample databases, 'Northwind' and 'Orders' that were bundled with Access.
 
Thanks very much.

Brendan Reynolds said:
Assuming Access 2000 or later ...

If CurrentProject.AllForms("FormName").IsLoaded Then

For earlier versions of Access, you'll find an 'IsLoaded' function in the
sample databases, 'Northwind' and 'Orders' that were bundled with Access.
Click to expand...
 
Back
Top