M MichaelK Apr 12, 2004 #1 What is the easiest way to find out if specific form is open. Thanks, Michael
F fredg Apr 12, 2004 #2 What is the easiest way to find out if specific form is open. Thanks, Michael 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), and paste it into a public 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
What is the easiest way to find out if specific form is open. Thanks, Michael 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), and paste it into a public 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
