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

原始 KB 編號： 209849

摘要

當您在 [工具] 功能表上使用 [參考] 對話框檢視參考的位置時，可能會因為對話框的限制而截斷路徑名稱的尾端部分。 本文說明如何使用 Visual Basic for Applications 程式迴圈查看 References 集合，並擷取每個參考的屬性。

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

其他相關資訊

若要迴圈查看 References 集合並擷取每個參考的屬性，請遵循下列步驟：

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
   

   注意事項

   每個參考都會列在 [實時運算] 視窗中。

參考資料

如需 References 集合的詳細資訊，請在 Visual Basic 編輯器 中，單擊 [說明] 功能表上的 [Microsoft Visual Basic 說明]，在 [Office 小幫手] 或 [回應精靈] 中輸入參考物件，然後按兩下 [搜尋] 以檢視主題。

如需使用 For Each... 列舉 References 集合的詳細資訊下一個語句，在 Visual Basic 編輯器 中，單擊 [說明] 功能表上的 [Microsoft Visual Basic 說明]，在 [Office 小幫手] 或 [回應精靈] 中輸入下一個 ，然後按兩下 [搜尋] 以檢視主題。