Create a new, blank MS Access database using VBA

Question

Hi,

I am trying to create a new blank MS Access database ( .mdb 2002-2003 version) by typing VBA codes in the current Microsoft 365 Access database.

The code which I've used could create a blank access database but the blank database created was NOT recognized as a correct MS Access database by web applications. (eg. Classic ASP web pages could not access the .mdb database file created by using the code shown below)

'the path to create the new access database
Dim strPath As String
'an Access object
Dim objAccess As Object

strPath = "C:\SampleDatabase\SampleData.mdb"
Set objAccess = CreateObject("Access.Application")
Call objAccess.NewCurrentDatabase(strPath)
objAccess.Quit

What is the correct code for creating a blank .mdb (2002-2003 version) Microsoft Access database file using VBA?

Thanks

Answer 1

Hi @R K

You could use the following code from https://www.techonthenet.com/access/questions/new_mdb.php:

(the only edit I had was the dbVersion Set db = ws.CreateDatabase(LFileName, dbLangGeneral, dbVersion40))

Sub newDB()  
   Dim ws As Workspace  
   Dim db As Database  
   Dim LFilename As String  
  
   'Get default Workspace  
   Set ws = DBEngine.Workspaces(0)  
  
   'Path and file name for new mdb file  
   LFilename = "c:\NewDB.mdb"  
  
   'Make sure there isn't already a file with the name of the new database  
   If Dir(LFilename) <> "" Then Kill LFilename  
  
   'Create a new mdb file  
   Set db = ws.CreateDatabase(LFilename, dbLangGeneral, dbVersion40)  
  
   db.Close  
   Set db = Nothing  
End Sub  

-------------------------------------------

If this is helpful please accept answer.