[tarounen]

hi, i am trying to create a blank database using VBA, but so far i only know how to create a path directory. Here is what i have done:

Private Sub create_Click()
    If MsgBox("Backup file does not exist. Do you want to create it?", vbYesNo, "Update Confirmation") = vbYes Then
        MkDir "C:\backup.accdb"
    End If
End Sub 

can anyone, help me to create a file named backup.accdb and not a directory.

thanks

[Ionut]

To create a database from Access VBA

Application.DBEngine.CreateDatabase "C:\newfile.accdb", dbLangGeneral 
'or
Dim accessdb As Database
set accessdb = Application.DBEngine.CreateDatabase("C:\newfile.accdb", dbLangGeneral)

To create a database from Excel VBA

Dim accessApp As Access.Application    
Set accessApp = New Access.Application    
accessApp.DBEngine.CreateDatabase "C:\newfile.accdb", dbLangGenera

accessApp.Quit
set accessApp = nothing

[tarounen]

Thank you, it worked!!!!

[iwanharnoko]

Ionut, on 11 March 2012 - 11:40 AM, said:

To create a database from Excel VBA

Dim accessApp As Access.Application    
Set accessApp = New Access.Application    
accessApp.DBEngine.CreateDatabase "C:\newfile.accdb", dbLangGenera

accessApp.Quit
set accessApp = nothing

I have tried this code but error message still appear like this Run Time Error 3001:Application Defined or Object Defined Error, could anyone help me to solve this problem please?