Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opens Database in exclusive mode with readwrite access

Sub work()     Dim myWorkspace As Workspace     Dim myDatabase As Database          Set myWorkspace = DBEngine.Workspaces(0)     Set myDatabase = myWorkspace.OpenDatabase(Name:= "\\server\database\Testing.mdb", Options:=True, ReadOnly:=False) End Sub