判断窗体是否打开的两种方法

判断窗体是否打开的两种方法
Function is loaded(strName As string，可选into object type As Integer =
AC form)
is loaded =(sys cmd(acSysCmdGetObjectState，into object type，strName) 0)
End Function

两个函数
function is form loaded(strffmname as string)为布尔值

const conform design = 0
Dim intX为整数

对于intX = 0的表单，is form loaded = False
。Count - 1
If Forms(intX)。FormName = str fromname Then
If Forms(intX)。一旦找到表单，current view conform design Then
is form loaded = True
Exit Function '退出函数。
End If
End If
Next

结束功能