check if a specific form is currently open

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hallo people
How can I validate within a macro or vba if a specific form is currently open?
Tnx, Eyal
 
In Northwind, there is a function called IsLoaded in which you pass the form
name as a parameter and it returns a yes/no answer.
 
Hallo people
How can I validate within a macro or vba if a specific form is currently open?
Tnx, Eyal
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) to 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:
If Not IsLoaded("FormA") Then
Do this
Else
Do that
End if
 
Back
Top