在执行SetDefaultWorkgroupFile后，如何恢复默认System.mdw？

Question

我在代码中执行以下操作来设置默认工作组文件：

Application.SetDefaultWorkgroupFile“c：\ myworkgroup.mdw”

在执行此操作之前，如何找出当前工作组的内容以便我可以还原？ Access中是否有内置功能？

谢谢， 格雷格

Answer 1

我不知道返回当前工作组文件的方法或属性。但是，当您在Access中打开数据库时，可以从CurrentProject.Connection中提取它。

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版本较旧，则需要通过其他方法提取工作组文件位置。

Edit2 ：在此答案后的评论中阅读 DBEngine.SystemDB 。