F fredg Jul 7, 2004 #2 How to decide if a specific form is open in Access VB coding 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
How to decide if a specific form is open in Access VB coding 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
R Randy Harris Jul 7, 2004 #3 fredg said: What version of Access? Access 2002: If Not CurrentProject.AllForms("FormA").IsLoaded Then Do something here Else Do something else End If Click to expand... Also valid for Access 2000 with default ADO reference.
fredg said: What version of Access? Access 2002: If Not CurrentProject.AllForms("FormA").IsLoaded Then Do something here Else Do something else End If Click to expand... Also valid for Access 2000 with default ADO reference.
