No exclusive rights after removing tables

Обновить

April 2019

Просмотры

28 раз

1

В MS Access 2007 Я импортировал несколько файлов CSV. Этот импорт действительно создают ошибки импорта, поскольку некоторые поля имеют обширный текст, который не может быть сохранен в мемо поле. Для этих ошибок, MS Access создает новые таблицы с ошибками импорта для каждого файла, который он импортирует. Я создал подводную лодку, которая удаляет таблицы ошибок импорта и, в общем, работает отлично. Что не в порядке является то, что после того, как код запуска я больше не администратор базы данных, и я в первую очередь необходимо закрыть базу данных, прежде чем я смогу продолжить дальнейшее развитие на базе.

Sub DelteTbls() 

On Error GoTo DelteTbls_Error

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef

    Set db = CurrentDb() 'Set the database object

    'Clean the import error tables.
    For Each tdf In db.TableDefs
        If (tdf.Name Like "*" & "import" & "*") Then
            DoCmd.DeleteObject acTable, tdf.Name
        End If
    Next

    On Error GoTo 0

SmoothExit_DelteTbls:
    Set db = Nothing
    DoCmd.SetWarnings True
    Exit Sub

DelteTbls_Error:
    MsgBox "Error" & Err.Number & " (" & Err.Description & ") in procedure DelteTbls"
    Resume SmoothExit_DelteTbls

End Sub

Сообщение я получаю после выполнения этого кода является

Microsoft Access не может сохранить изменения дизайна или сохранить новый объект базы данных, как другой пользователь имеет открытый файл. Чтобы сохранить изменения дизайна или сохранить на новый объект, вы должны иметь эксклюзивный доступ к файлу.

Это странно, так как я единственный пользователь базы данных и никто другой вошел. Что я делаю не так?

0 ответы