Ошибка "Невозможно использовать файл" в многопользовательском режиме (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
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-