Office中国论坛/Access中国论坛

标题: 求助，用代码如何判断指定窗体是否开启？ [打印本页]

作者: heqing3000 时间: 2006-7-24 19:14
标题: 求助，用代码如何判断指定窗体是否开启？
如上

作者: andymark 时间: 2006-7-24 19:25

if IsLoaded("A") then

msgbox "A窗体已开启“

end if

Function IsLoaded(ByVal strformName As String) As Integer

Const OBJ_STATE_CLOSED = 0
Const DESIGN_VIEW = 0

If SysCmd(acSysCmdGetObjectState, acForm, strformName) <> OBJ_STATE_CLOSED Then
      If Forms(strformName).CurrentView <> DESIGN_VIEW Then
         IsLoaded = True
      End If
End If
End Function

作者: tz-chf 时间: 2006-7-24 19:49
罗斯文里有这个函数

作者: heqing3000 时间: 2006-7-24 20:10
谢谢 andymark tz-chf

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