Office中国论坛/Access中国论坛

标题: 如何判断某窗体是否Load? [打印本页]

作者: 我同意 时间: 2004-2-28 20:31
标题: 如何判断某窗体是否Load?
好像在哪里看到过这个话题的帖子，现在找了半天没成。
请求指点。谢谢！

作者: zhengjialon 时间: 2004-2-28 20:43
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

作者: 我同意 时间: 2004-2-28 20:47
谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)