-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Ошибка "Невозможно использовать файл" в многопользовательском режиме (access)

Среда, 13 Сентября 2017 г. 17:37 + в цитатник
Уважаемые знатоки!

Есть разделенная база (файл с таблицами в сетевой папке и файл с формами и кодом на компе у пользователя).
Для одной из форм обрабатывается событие Таймер (код найден где-то здесь на форуме, используется для того, чтобы принудительно выбрасывать пользователей из программы).

Private Sub Form_Timer()
Dim AbortNow As Boolean
 
  AbortNow = Nz(DLookup("ExitNow", "Abort"), False)
  
  If AbortCounter > 0 And AbortNow Then
    Application.Quit                                 'Выходим из программы.
  End If

  If AbortNow Then                                 'Выводим предупреждение и ждём дальше.
    AbortCounter = AbortCounter + 1          'Теперь, при следующем срабатывании таймера, сработает выход из программы.
    DoCmd.OpenForm "frmExit"                  'Покажем форму - преупреждение.
  End If
End Sub

Периодически (часто) у какого-нибудь пользователя выскакивает ошибка "Невозможно использовать (путь и имя сетевого файла с таблицей Abort); файл уже используется. "
Остановка происходит на строке: AbortNow = Nz(DLookup("ExitNow", "Abort"), False)

Папка доступна всем пользователям на чтение и запись (около 40 чел). Подозреваю, что такое происходит в тот момент, когда одновременно два (или более) пользователя обращаются к таблице Abort. Событие Таймер происходит с периодичностью 30 сек.

Натолкните, в какую сторону смотреть?

http://www.sql.ru/forum/1271427/oshibka-nevozmozhno-ispolzovat-fayl-v-mnogopolzovatelskom-rezhime-access


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку