Access - Create New Blank Database With Data Access Objects (DAO)

This macro creates a new blank MS Access Database with DAO.


  • 4334
  • 2140
  • 0
  • 0
Add to collection

1 Open MS Access.

2 Create a blank database.

3 Go to Database Tools tab > click on "Visual Basic" button or hit Alt + F11.

4 Go to Insert tab > click on "Module" or hit M.

5 Copy the VBA code from below.

6 Paste the code in the newly created module.

7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.

8 That's it!


Option Compare Database
' Create New Blank Database With DAO
Sub createNewBlankDatabaseDAO()
    ' Set variables
    Dim wksp As Workspace
    Dim db As Database
    Dim prp As Property
    ' Set workspace
    Set wksp = CreateWorkspace("AccessWorkspace", "admin", "", dbUseJet)
    ' Create new database
    Set db = wksp.CreateDatabase("F:\VBAmacros\Access\test.accdb", dbLangGeneral)
    ' Close database
    ' Close workspace
    ' Release objects
    Set db = Nothing
    Set wksp = Nothing
End Sub

Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
Code was successfully copied!
Please sign in!
You've already voted!