Ms access 在执行SetDefaultWorkgroupFile后，如何恢复到default System.mdw？

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

Application.SetDefaultWorkgroupFile“c:\myworkgroup.mdw”

在执行此操作之前，如何确定当前工作组是什么，以便恢复？有什么内置的访问

谢谢，

---

Greg

我不知道返回当前工作组文件的方法或属性。但是，当在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。

我不知道返回当前工作组文件的方法或属性。但是，当在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的内容。

Er，有什么理由不使用DBEngine.SystemDB吗？DBEngine.SystemDB就是它。谢谢这个问题有些混乱。默认工作组文件可能与特定Access实例使用的工作组文件完全不同。即使对于使用默认设置的Access实例，更改默认工作组文件的设置也不会更改该Access实例中使用的工作组文件。您需要赶上我，并获得您的银色MS-Access徽章，因此，有一些要点！我永远不会告诉你！你得自己去看看！我刚刚给你们投了一票…呃，有什么理由不使用DBEngine.SystemDB吗？就是DBEngine.SystemDB。谢谢这个问题有些混乱。默认工作组文件可能与特定Access实例使用的工作组文件完全不同。即使对于使用默认设置的Access实例，更改默认工作组文件的设置也不会更改该Access实例中使用的工作组文件。您需要赶上我，并获得您的银色MS-Access徽章，因此，有一些要点！我永远不会告诉你！你得自己去看看！我刚刚让你领先一票。。。