如何检测窗体报表或者查询表已经打开？

eio

[move]多谢指教！[/move]

zhengjialon

MS自带的示例数据库北风里有一个ISLOADED函数，可能是你要的吧？我经常用。

eio

请上传!

cattjiu

Option Explicit

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


Private Sub Form_Close()‘form suppliers

    ' Close Product List form and Products form if they are open.
    If IsLoaded("roduct List") Then DoCmd.Close acForm, "roduct List"
    If IsLoaded("roducts") Then DoCmd.Close acForm, "Products"
   
End Sub

李寻欢

或是直接使用IsLoaded属性：
If CurrentProject.AllForms("frmmain").IsLoaded = True Then
        Forms!frmMain.Form.Visible = False
End If