如何在 Microsoft Access 中迴圈查看參考以查看其屬性

注意

Office 365 專業增強版 即將重新命名為 Microsoft 365 企業版應用程式。 如需關於此變更的詳細資訊,請閱讀此部落格文章

原始 KB 編號:   209849

摘要

當您使用 [工具] 功能表上的 [參照] 對話方塊來查看參照位置時,路徑名稱的尾隨部分可能會因為對話方塊的限制而截斷。 本文說明如何使用 Visual Basic for Applications 程式來迴圈查看 Reference 集合,並取得每個參考的屬性。

Microsoft 提供的程式設計範例僅供說明之用,並不具任何明示或暗示的責任擔保。 這包括 (但不限於) 任何目的之適售性及適用性的暗示責任擔保。 本文假設您熟悉示範的程式設計語言,也熟悉用以建立和偵錯程序的工具。 Microsoft 技術支援工程師可以協助說明特定程序的功能,但不會修改這些範例以提供附加功能或建構程序來滿足您的特定需求。

其他資訊

若要迴圈查看 Reference 集合,並取得每個參照的屬性,請遵循下列步驟:

  1. 若尚未存在,請建立模組, 並在宣告區段中 輸入下列行:

    Option Explicit
    
  2. 輸入下列程式:

    Function ReferenceInfo()
    
        Dim strMessage  As String
        Dim strTitle    As String
        Dim refItem     As Reference
    
        On Error Resume Next
    
        For Each refItem In References
            If refItem.IsBroken Then
                strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
            Else
                strMessage = "Reference: " & refItem.Name & vbCrLf _
                           & "Location: " & refItem.FullPath & vbCrLf
            End If
            Debug.Print strMessage
        Next refItem
    
    End Function
    
  3. 若要測試此函數,請在 [立即] 視窗中輸入下列行,然後按 ENTER:

    ? ReferenceInfo
    

    注意

    每個參照都會列于 [即時運算] 視窗中。

參考

如需有關 Reference 集合的詳細資訊,請在 Visual Basic 編輯器中,按一下 [說明] 功能表上的 [Microsoft Visual Basic 說明],在 [Office Assistant] 或 [應答] 嚮導中輸入 reference 物件,然後按一下 [搜尋] 以查看主題。

如需詳細資訊,請使用 For Each .。。Next 語句,在 Visual Basic 編輯器中,按一下 [說明 ] 功能表上的 [ Microsoft Visual basic 說明],在 [Office 小幫手] 或 [應答嚮導] 中輸入 [下一步],然後按一下 [搜尋] 以查看主題。