Как мне вернуться к стандартному System.mdw после выполнения SetDefaultWorkgroupFile?

Question

Я делаю следующее в коде, чтобы установить файл рабочей группы по умолчанию:

Application.SetDefaultWorkgroupFile "c: \ myworkgroup.mdw"

Как узнать, какая текущая рабочая группапрежде чем я сделаю это, чтобы я мог вернуться?Есть ли что-то встроенное в Access?

Спасибо, Грег

Answer 1

Мне неизвестно о методе или свойстве для возврата текущего файла рабочей группы.Однако вы можете извлечь его из CurrentProject.Connection, если у вас есть открытая база данных в Access.

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

Редактировать : Я думаю, что функция Split () доступна в версиях Access, начиная с2000. Если ваша версия Access старше, вам необходимо извлечь местоположение файла рабочей группы другим способом.

Edit2 : Подробнее о DBEngine.SystemDB читайте в комментариях.после этого ответа.