如何判断某一窗体是否已经打开？

qdjqx

如何用代码判断某一窗体是否已经打开，谢谢。

zhengjialon

用IsLoaded的函数:

'判断窗体是否加载

Public Function IsLoaded(ByVal strFormName As String) As Boolean

' 如果指定窗体在窗体视图或数据表视图中打开，返回 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

   

    '另一种方法,没有上面的方法容错性强，比如去判断当前库中不存在的窗体(2467)会出错，

    '而上面则不会

    'If CurrentProject.AllForms(strFormName).IsLoaded Then

        'If Forms(strFormName).CurrentView <> 0 Then

            'IsLoaded = True

        'End If

    'End IfEnd Function

qdjqx

非常感谢版主，又学了不少知识。