判断窗体是否加载的自定义函数

AngelHis　发表于：2012-06-17 22:27:22 　

Access2003自带模板“订单”示例中的模块代码，判断窗体是否加载的自定义函数：

Function IsLoaded(ByVal strFormName As String) As Integer
    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

请麦田老师解释一下具体的意思，详细些最好，谢谢！

Top

风行发表于：2012-06-18 09:42:12

三种自学VBA好方法-Access软件网
http://www.accessoft.com/article-show.asp?id=6816

Top

叶海峰发表于：2012-07-13 09:00:09

利用错误陷阱来判断窗体是否加载的自定义函数.注意的是,窗体为设计视图时,该函数也是返回True的

Function FrmIsLoaded(FrmName As String) As Boolean

    Dim str    As String

    On Error Resume Next

    str = Forms(FrmName).FormName

    FrmIsLoaded = (Err = 0)

End Function

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

判断窗体是否加载的自定义函数