Произошла ошибка «не удалось заблокировать таблицу» после запуска VBA в Access - PullRequest
Новая
       48

Произошла ошибка «не удалось заблокировать таблицу» после запуска VBA в Access

0 голосов
/ 03 июля 2019

В Access я создал кнопку для отправки отчета по электронной почте в формате PDF. Он работает нормально при первом использовании, затем, если я пытаюсь использовать его снова, выдается ошибка «невозможно заблокировать таблицу». Я использовал следующий код: 

Private Sub Btn_TNA_Report_Click()
Dim MyDate As Date
Dim x2 As String
MyDate = Date    
x2 = Me.Email_Of_Contact_Person
DoCmd.SendObject acSendReport, "Rpt_TNA_Email", acFormatPDF, x2, , , "NMUH Request for Staff Education Places " & Date, "Dear Colleague," & vbCrLf & vbCrLf & "Please find PDF of request attached." & vbCrLf & "" & vbCrLf & vbCrLf & "Thank you", True
End Sub

Мне нужно закрыть базу данных и открывать ее каждый раз, чтобы разблокировать таблицу. Я пытался добавить строку перед открытием отчета, чтобы удалить поврежденную таблицу, но это тоже не сработало.

Есть мысли, ребята?

1 Ответ

0 голосов
/ 03 июля 2019

Два пути решения этой проблемы.

Сначала проверьте основные таблицы БД, чтобы узнать, какой процесс / пользователь блокирует таблицу. Определите местоположение, которое вызывает эту блокировку, и попытайтесь выполнить фиксацию, чтобы снять все блокировки на этой таблице.

Во-вторых, вам не нужно закрывать БД. Вы можете проверить и снять блокировки на столе, если у вас есть соответствующие разрешения. попробуйте пойти по этому пути.

...