access，OpenDatabase（）相对路径

Question

你好我在一个文件夹中有2个accdb文件，我需要从第一个文件打开第二个文件，我必须使用相对路径。我尝试了一切，但没有任何作用。

Set db = DBEngine(0).OpenDatabase(ActiveDocument.Path & "\Training.accdb") 
Set db = DBEngine(0).OpenDatabase("..\Training.accdb")

结果：错误，缺少对象

感谢您的帮助。

Answer 1

请改用：

Set db = DBEngine(0).OpenDatabase(CurrentProject.Path & "\Training.accdb")

设置ActiveDocument.Path，在Access中不存在。