Topic: Error "It is impossible to use a file" in a multiple user mode (access)
There is a partitioned basis (a file with tables in a network folder and a file with forms and the code on a computer at the user).
For one of forms event the Timer (the code is found somewhere here at a forum, is used forcedly to throw out users from the program) is processed.
Private Sub Form_Timer () Dim AbortNow As Boolean AbortNow = Nz (DLookup ("ExitNow", "Abort"), False) If AbortCounter> 0 And AbortNow Then Application. Quit ' we Quit the program. End If If AbortNow Then ' we Deduce the warning and we wait further. AbortCounter = AbortCounter + 1 ' Now, at following actuating of the timer, works an output from the program. DoCmd. OpenForm "frmExit" ' we Show the form - . End If End Sub
Periodically (often) at any user the error "jumps out It is impossible to use (a way and a name of the network file with table Abort); the file is already used."
The stop happens at line: AbortNow = Nz (DLookup ("ExitNow", "Abort"), False)
The folder is accessible to all users on a read and write (about 40 foreheads). I suspect that the such happens while simultaneously two (or more) the user address to table Abort. Event the Timer happens to periodicity 30 seconds
Push, in what side to look?