Testing is a Forn is open

  • Thread starter Thread starter Andy Levy
  • Start date Start date
A

Andy Levy

Hi

Do you know how i can test if a particular form is open in access2k

Is it as simple as

If (formname) then
**Statement**
End If


Thanks
 
Andy,

Go to the Northwind Traders sample database. There's a function called IsOpen in
the standard modules that does this.

PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
www.pcdatasheet.com
 
If you are using Access2K then

If CurrentProject.AllForms("FormName").IsLoaded Then
' Form is open
End If

may be easier.

HTH,

Neil.
 
Hi,
Here is a function that comes with the Northwind sample db:

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
 
Back
Top