Get database from Workspace : Workspaces « Access « VBA / Excel / Access / Word

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

Get database from Workspace

 

Sub exaCurrentDB()
    Dim db, dbExtra, dbOriginal As Database
    Dim i As Integer
    
    Set dbOriginal = DBEngine(0)(0)
    Debug.Print DBEngine.Workspaces(0).Databases.Count
    
    Set dbExtra = CurrentDb()
    Debug.Print DBEngine.Workspaces(0).Databases.Count
    
    For Each db In DBEngine.Workspaces(0).Databases
        Debug.Print db.Name
    Next db
    
    dbExtra.Close

End Sub

 

Related examples in the same category