NewCurrentDatabase Method [Access 2003 VBA Language Reference]
You can use the NewCurrentDatabase method to create a new Microsoft Access database (.mdb) in the Microsoft Access window.
expression Required. An expression that returns one of the objects in the Applies To list.
filepath Required String. A string expression that is the name of a new database file, including the path name and the file name extension. If your network supports it, you can also specify a network path in the following form: \\Server\Share\Folder\Filename
Note If you don't supply the filename extension, .mdb is appended to the filename
You can use this method to create a new database from another application that is controlling Microsoft Access through Automation, formerly called OLE Automation. For example, you can use the NewCurrentDatabase method from Microsoft Excel to create a new database in the Microsoft Access window.
Note You can use the NewAccessProject method to create a new Microsoft Access project (.adp) in the Access window.
The NewCurrentDatabase method enables you to create a new Microsoft Access database from another application through Automation. Once you have created an instance of Microsoft Access from another application, you must also create a new database. This database opens in the Microsoft Access window.
If the database identified by dbname already exists, an error occurs.
The new database is opened under the.
The following example creates a new Microsoft Access database from another application through Automation, and then creates a new table in that database.
You can enter this code in a Visual Basic module in any application that can act as a COM component. For example, you might run the following code from Microsoft Excel, Microsoft Visual Basic, or Microsoft Access.
When the variable pointing to the Application object goes out of scope, the instance of Microsoft Access that it represents closes as well. Therefore, you should declare this variable at the module level.
' Include following in Declarations section of module. Dim appAccess As Access.Application Sub NewAccessDatabase() Dim dbs As Object, tdf As Object, fld As Variant Dim strDB As String Const DB_Text As Long = 10 Const FldLen As Integer = 40 ' Initialize string to database path. strDB = "C:\My Documents\Newdb.mdb" ' Create new instance of Microsoft Access. Set appAccess = _ CreateObject("Access.Application.9") ' Open database in Microsoft Access window. appAccess.NewCurrentDatabase strDB ' Get Database object variable. Set dbs = appAccess.CurrentDb ' Create new table. Set tdf = dbs.CreateTableDef("Contacts") ' Create field in new table. Set fld = tdf. _ CreateField("CompanyName", DB_Text, FldLen) ' Append Field and TableDef objects. tdf.Fields.Append fld dbs.TableDefs.Append tdf Set appAccess = Nothing End Sub