如何在 Microsoft Access 中循环访问引用以查看其属性
原始 KB 编号: 209849
摘要
使用“工具”菜单上的“引用”对话框查看引用的位置时,由于对话框的限制,路径名称的尾随部分可能会被截断。 本文介绍如何使用 Visual Basic for Applications 过程循环访问 References 集合并检索每个引用的属性。
Microsoft 提供的编程示例仅用于进行说明,而不提供明示或默示担保。 这包括但不限于适销性或对特定用途的适用性的默示担保。 本文假设您熟悉正在演示的编程语言和用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释特定过程的功能,但他们不会修改这些示例以提供新增功能或构建步骤以满足你的特定需要。
更多信息
若要循环访问 References 集合并检索每个引用的属性,请执行以下步骤:
创建一个模块,并在 “声明” 部分键入以下行(如果尚不存在):
Option Explicit
键入以下过程:
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
若要测试此函数,请在“即时”窗口中键入以下行,然后按 Enter:
? ReferenceInfo
注意
每个引用都列在“即时”窗口中。
References
有关引用集合的详细信息,请在 Visual Basic 编辑器单击“帮助”菜单上的“Microsoft Visual Basic 帮助”,在 Office 助手或答案向导中键入引用对象,然后单击“搜索”以查看主题。
有关使用 For Each 通过 References 集合枚举的详细信息...下一条语句,在 Visual Basic 编辑器中,单击“帮助”菜单上的“Microsoft Visual Basic 帮助”,在“Office 助手”或“答案向导”中键入下一步,然后单击“搜索”以查看主题。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈