Open Exclusive Code

[AKQTS]

You know how you can open a database as exclusive (lock other users out) by opening an access file through the file browse dialog and selecting the option?

I want to do that when I open my file without going through the opening procedure. I.E. when i double click on the icon for the program, I want it to run as exclusive (lock everyone else out) without opening through the file browser and setting that property.

I tried Accesss Options-Advanced- (checked)Open Exclusive
and no change, still lets any other user open and use the program.

I don't want to check for a lock file.

Is there any code to just set the database to exclusive on open?



Thanks, I thought this would be easy

[AKQTS]

Solved my own problem, maybe not the best, but it works:

Sub work()
On Error GoTo work_err
Dim myWorkspace As Workspace
Dim myDatabase As Database

Set myWorkspace = DBEngine.Workspaces(0)
Set myDatabase = myWorkspace.OpenDatabase(Name:="<filepath>", Options:=True, ReadOnly:=False)
work_Exit:
Exit Sub
work_err:
MsgBox "Database is open by another user, please try again later", vbCritical, "In Use"
Application.Quit
Resume work_Exit
End Sub

[AKQTS]

An even easier solution is to also just add /excl after the file path if you are creating a shortcut.