Access VBA教程:IsLoaded属性

使用 IsLoaded属性可以确定当前是否加载了AccessObject。Boolean 型,只读。


expression   必需。返回“Applies To”列表中的一个对象的表达式。



设置 Visual Basic 说明
True   加载了指定的 AccessObject。
False 未加载指定的 AccessObject。
IsLoaded属性仅在使用Visual Basic 时才可用,并且是只读属性。


该过程说明了如何用 VBA 代码将文本添加到数据访问页中。以下信息提供了在过程中使用的参数:

strPageName 已有数据访问页的名称。
strID 包含要使用文本的标记的 ID属性。
strText 要插入的文本。
blnReplace 是否替换标记中的已有文本。

Function DAPInsertText(strPageName As String, _
    strID As Variant, strText As String, _
    Optional blnReplace As Boolean = True) As Boolean
    Dim blnWasLoaded As Boolean
    On Error GoTo DAPInsertText_Err
    ' Determine if the page exists and whether it is
    ' currently open. If not open then open it in
    ' design view.
    If DAPExists(strPageName) = True Then
        If CurrentProject.AllDataAccessPages(strPageName) _
            .IsLoaded = False Then
            blnWasLoaded = False
            With DoCmd
                .Echo False
                .OpenDataAccessPage strPageName, _
            End With
            blnWasLoaded = True
        End If
        DAPInsertText = False
        Exit Function
    End If
    ' Add the new text to the specified tag.
    With DataAccessPages(strPageName).Document
        If blnReplace = True Then
            .All(strID).innerText = strText
            .All(strID).innerText = .All(strID).innerText & strText
        End If
        ' Make sure the text is visible.
        With .All(strID).Style
            If .display = "none" Then .display = ""
        End With
    End With
    ' Clean up after yourself.
    With DoCmd
        If blnWasLoaded = True Then
        .Close acDataAccessPage, strPageName, acSaveYes
        End If
    End With
    DAPInsertText = True
    DoCmd.Echo True
    Exit Function
    MsgBox "Error #" & Err.Number & ": " & Err.Description
    DAPInsertText = False
    Resume DAPInsertText_End
End Function

上页:Access VBA教程:IsHyperlink属性 下页:Access VBA教程:IsVisible属性

Access VBA教程:IsLoaded属性

Access VBA教程:IsVisible属性 Access VBA教程:Item属性
Access VBA教程:ItemData属性 Access VBA教程:ItemLayout属性
Access VBA教程:ItemsAcross属性 Access VBA教程:ItemSizeHeight属性
Access VBA教程:ItemSizeWidth属性 Access VBA教程:ItemsSelected属性
Access VBA教程:KeepTogether属性 Access VBA教程:KeepTogether属性 - 组
Access VBA教程:KeepTogether属性 - 节 Access VBA教程:KeyboardLanguage属性
Access VBA教程:KeyPreview属性 Access VBA教程:Kind属性
Access VBA教程:LabelAlign属性 Access VBA教程:LabelX属性
Access VBA教程:LabelY属性 Access VBA教程:LanguageSettings属性
Access VBA教程:LayoutForPrint属性 Access VBA教程:Left属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号