IsLoaded プロパティ

IsLoaded プロパティ

AccessObject が現在ロードされているかどうかを示します。値の取得のみ可能です。ブール型 (Boolean) の値を使用します。

expression.IsLoaded

expression 必ず指定します。このトピックの [対象] をクリックして表示される Access オブジェクトのうちの 1 つを返すオブジェクト式を指定します。

解説

IsLoaded プロパティの設定値は次のとおりです。

メモ IsLoaded プロパティは、Visual Basic でのみ使用でき、値の取得のみ可能です。

使用例

このプロシージャでは、VBA コードを使って、データ アクセス ページにテキストを追加する方法を説明しています。次に示す情報がこのプロシージャの引数に渡されます。

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
    ' ページの存在を確認し、現在開いているかどうかを
    ' 確認します。開いていない場合は、
    ' デザイン ビューで開きます。
    If DAPExists(strPageName) = True Then
        If CurrentProject.AllDataAccessPages(strPageName) _
            .IsLoaded = False Then
            blnWasLoaded = False
            With DoCmd
                .Echo False
                .OpenDataAccessPage strPageName, _
                    acDataAccessPageDesign
            End With
        Else
            blnWasLoaded = True
        End If
    Else
        DAPInsertText = False
        Exit Function
    End If

    ' 指定したタグに新しいテキストを追加します。
    With DataAccessPages(strPageName).Document
        If blnReplace = True Then
            .All(strID).innerText = strText
        Else
            .All(strID).innerText = .All(strID).innerText & strText
        End If
        ' テキストが表示されていることを確認します。
        With .All(strID).Style
            If .display = "none" Then .display = ""
        End With
    End With

    ' 後で自分で消去します。
    With DoCmd
        If blnWasLoaded = True Then
        .Save
    Else
        .Close acDataAccessPage, strPageName, acSaveYes
        End If
    End With
    DAPInsertText = True
DAPInsertText_End:
    DoCmd.Echo True
    Exit Function
DAPInsertText_Err:
    MsgBox "エラー #" & Err.Number & ": " & Err.Description
    DAPInsertText = False
    Resume DAPInsertText_End
End Function