access-create-new-blank-database-with-data-access-objects-dao

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

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

Access

  • 240
  • 157
  • 0
  • 0
Add to collection
© VBAmacros.net2020

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!


Advertisement

Code
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
    db.Close
    ' Close workspace
    wksp.Close
    ' Release objects
    Set db = Nothing
    Set wksp = Nothing
End Sub
Advertisement


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