判断窗体是否打开的两种方法 Function IsLoaded(strName As String, Optional intObjectType As Integer = acForm) IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) 0) End Function 函数二 Function IsFormLoaded(strFrmName As String) As Boolean Const conFormDesign = 0 Dim intX As Integer IsFormLoaded= False For intX = 0 To Forms.Count - 1 If Forms(intX)....[ 查看全文 ]