可以自定义函数:
Public Function IsLoaded(ByVal strFormName As String) As Boolean
'判断窗体是否加载的函数
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
在使用时直接调用:
If isloaded("frmb") = True Then
其实在access2010中有isloaded属性,不需要以上代码也可以直接使用。
if currentproject.allforms("frmb").isloaded = True then