Create a new database : Database Create « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Database Create

Create a new database

 
Sub exaCreateDb()
    Dim dbNew As Database
    Dim tbl As TableDef
    Set dbNew = CreateDatabase("c:\", dbLangGeneral)
    For Each tbl In dbNew.TableDefs
       Debug.Print tbl.Name
    Next
    dbNew.Close
End Sub

 

Related examples in the same category