Exclusive Access To The Database

Question

Is there a way for my code to know if I have
Exclusive Access To The Database?  If so, what would the
Compress Database Command be?
Application:  I would like my update script to include a command to compress the database, when no one else is in the database.

Answer 1

Hi Mark,
>> Is there a way for my code to know if I have Exclusive Access To The Database?
I think you could check whether the Access is exclusive with vba code, some key code as below:
Function IsCurDBExclusive () As Integer
' Purpose: Determine if the current database is open exclusively.
' Returns: 0 if database is not open exclusively.
' -1 if database is open exclusively.
' Err if any error condition is detected.
Dim db As Database
Dim hFile As Integer
hFile = FreeFile
Set db = dbengine.workspaces(0).databases(0)
If Dir$(db.name) <> "" Then
On Error Resume Next
Open db.name For Binary Access Read Write Shared As hFile
Select Case Err
Case 0
IsCurDBExclusive = False
Case 70
IsCurDBExclusive = True
Case Else
IsCurDBExclusive = Err
End Select
Close hFile
On Error GoTo 0
Else
MsgBox "Couldn't find " & db.name & "."
End If
End Function
For more information, you could turn to the link below:
# ACC: How to Determine If a Database Is Open Exclusively
http://support.microsoft.com/kb/117539
>> If so, what would the Compress Database Command be?
For compressing the database, I think you could use
# Application.CompactRepair Method (Access)​
Best Regards,
Edward
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.