доступ: Запуск ошибки времени 424 с ActiveWorkbook.path

Question

Я пытаюсь открыть каталог, который содержит свою базу данных Access, используя этот код

Dim path As String 
path = ActiveWorkbook.path & "\" 
Shell "cmd /C start """" /max """ & path & """", vbHide 

как это было предложено here по @AnorZaken.

Во второй строке, однако, возникает ошибка времени выполнения «424 объекта требуется». Когда я использую какой-то статический путь (т. Е. path = "C:\"), все работает нормально.

Answer 1

ActiveWorkbook для Excel. В доступе используется CurrentProject

'path = ActiveWorkbook.path & "\" 
path = CurrentProject.Path & "\"