Closing a Database : Workspaces « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Workspaces

Closing a Database

 
Sub close()
    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)
    myDatabase.Close
End Sub

 

Related examples in the same category