如何恢复默认值系统.mdw在执行SetDefaultWorkgroupFile之后?

我不知道返回当前工作组文件的方法或属性。但是,您可以从当前项目连接在Access中打开数据库时。

Public Function CurrentWorkgroupFile() As String
    Dim strSplit1 As String
    strSplit1 = Split(CurrentProject.Connection, "System database=")(1)
    CurrentWorkgroupFile = Split(strSplit1, ";")(0)
End Function

编辑 :我认为Split()函数在2000开始的Access版本中可用。如果您的Access版本较旧,则需要通过其他方法提取工作组文件位置。

编辑2 数据库引擎.SystemDB 在回答后的评论中。