显示Access中VBA引用中文件的完整路径代码；显示Access引用路径的VBA代码

时　间:2023-10-21 09:30:14
作　者:麥田   ID：11  城市：上海  QQ：3002789054
摘　要:显示Access中VBA引用中文件的完整路径代码。
正　文:

一、学友问题描述：
爱好者:苏州--风雨无阻  12:15:11
请问VBA代码引用对话框的文件定位路径不完整显示，怎么解决？有的系统上鼠标悬停会完整显示文件定位路经，而有的机器上没有显示，就不能找到相关组件文件。如下图：
这个是可以显示的。


这个就是没有鼠标悬停显示。


二、解决方法：
      要显示Access中VBA引用中文件的完整路径，你可以使用以下代码：
Sub ShowReferencePath()
    Dim ref As Reference    
    For Each ref In Application.References
        Debug.Print ref.Name & " - " & ref.FullPath
    Next ref
End Sub

      对鼠标悬停不能显示的情形下可使用。将上述代码添加到Access数据库中的一个模块中，然后运行ShowReferencePath过程。这将遍历所有引用，并在Immediate窗口中显示引用的名称和完整路径。
要打开Immediate窗口，请按下Ctrl + G，或者在VBA编辑器中选择"View"菜单下的"Immediate Window"选项。
      请注意，这段代码只能显示已经设置为引用的文件的完整路径。如果某个引用是通过浏览文件对话框选择的，那么它可能没有完整路径。如下图：



Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店