Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

显示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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助