访问VBA - 相对文件引用

Question

已经构建了几个mda库文件，然后我从我的主Access应用程序引用它（即使用工具 - > IDE中的引用）。

有没有办法可以使这些参考相对而不是绝对。我问的原因是，如果所有三个文件（主应用程序和两个mda文件）可以简单地放在任何目录中并且无需更改引用即可工作，这样可以很容易地在用户的计算机上进行设置。

由于

Answer 1

为什么不将三个MDE放在目标系统的同一个文件夹中？访问应该找到MDE引用就好了。

或者您正在使用USysRegInfo表的加载项逻辑？您实际上不需要使用自己的加载项。只需使用开发人员类型的加载项，例如Rick Fisher的查找和替换。

如果这对您不起作用，请告诉我们哪些错误消息或症状。

Answer 2

获取访问应用程序的文件路径

CurrentProject.Path & "\"

然后只需将其他文件添加到同一目录中，然后按名称获取它们。即。

Dim filepath As String
filepath = CurrentProject.Path & "\name_of_file.mda"

Answer 3

您可以通过VBA本身添加VBA引用。

Dim sFilename As String
sFilename = CurrentProject.Path & "\" & whatever.mda

Application.References.AddFromFile sFilename

只需将其放入您的AutoExec中，该引用应该适用于所有内容。当然，在添加引用之前，您必须检查引用是否已存在，否则会出错。但这只是循环使用Application.References。