如何判断某窗体是否Load?

我同意

好像在哪里看到过这个话题的帖子，现在找了半天没成。
请求指点。谢谢！

zhengjialon

Northwind里就有，放在标准模块里：
Function IsLoaded(ByVal strFormName As String) As Boolean
' 如果指定窗体在窗体视图或数据表视图中打开，返回 True。
    Dim oAccessObject As AccessObject
   
    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
         If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If
End Function

我同意

谢谢