Как исправить: Отказано в доступе, ошибка времени выполнения 70, запись файлов FSO, проблема с компьютером

Question

У меня есть код для резервного копирования текущей активной базы данных Access с использованием VBA. но он работает только на моем ноутбуке, а не на моем компьютере на работе. у них обоих Win 10, одинаковая офисная версия, Security Permission тоже одинаковые настройки, в чем может быть проблема? разница?

Пожалуйста, смотрите предоставленный код здесь:

Sub backup()

Dim FSO As Object

Set FSO = CreateObject("scripting.filesystemobject")

FSO.CopyFile Application.CurrentProject.FullName, _
Left(Application.CurrentProject.FullName, _
Len(Application.CurrentProject.FullName) - 6) & "_Backup.accdb"

End Sub

Answer 1

Я нашел решение после долгих испытаний и устранения неполадок Решением является настройка «Режим открытия по умолчанию» в доступе. я изменил с "Эксклюзив" на "Общий", и это работает.