Create Database

[charlie12345]

I need to create a new database in order to export a table.
Exporting the table is no problem, but I can't seem to create a new database.
I get 'Invalid Argument' with:
Set dbsNew = DBEngine.Workspaces(0).CreateDatabase("NewDB.mdb", dbLangGeneral)

It must be obvious, but I can't see it.

Charlie

 

[LonnieJohnson]

This is what works for me, try breaking it down like so...

Sub newdb()
Dim wrk As Workspace
Dim db As Database

Set wrk = DBEngine.Workspaces(0)
Set db = wrk.CreateDatabase("c:\mynewdb.mdb", dbLangGeneral)

End Sub

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

Contact me at ==>lonniejohnson@prodev.us

May God bless you beyond your imagination!!!