如何在 Microsoft Access 中遍历引用以查看其属性

备注

Office 365 ProPlus 正在重命名为 适用于企业的 Microsoft 365 应用。 有关此更改的详细信息, 请阅读此博客文章

原始 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 助手或应答向导中键入 reference 对象,然后单击"搜索"以查看主题。

有关使用 For Each... 枚举 References 集合详细信息Next 语句在"Visual Basic编辑器"中,单击"帮助"菜单上的 "Microsoft Visual Basic 帮助",在"Office 助手"或"应答向导"中键入下一步,然后单击"搜索"以查看主题。