Function IsLoaded(ByVal strFormName As String) As Integer '如果指定的窗体以窗体视图或数据表视图模式打开将返回True。
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
Function IsLoadRpt(ByVal strReportName As String) As Integer '测试报表是否打开
Const conObjStateClosed = 0
If SysCmd(acSysCmdGetObjectState, acReport, strReportName) <> conObjStateClosed Then
IsLoadRpt = True
End If
End Function
判断窗体是否打开的两种方法
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).FormName = strFrmName Then
If Forms(intX).CurrentView <> conFormDesign Then
IsFormLoaded= True
Exit Function ' Quit function once form has been found.
End If
End If
Next
总记录：2篇 页次：1/1 9 1 :
