如何在 MS-Access 中使用 VBA 不在 currentdb 中创建表

Question

First time user here. I need to create a new table in Access using VBA but NOT in the currentdb. How can I accomplish this?

Thanks, Rimuru

Answer 1

There are two ways that you can do this.

Firstly, you can use SQL to do this:

Sub sCreateTable1()
    Dim db As DAO.Database
    Set db = DBEngine(0).OpenDatabase("J:\downloads\test.accdb")
    db.Execute "CREATE TABLE [test1] (Field1 CHAR);"
    db.Close
    Set db = Nothing
End Sub

Secondly, you can use DAO to do this:

Sub sCreateTable2()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Set db = DBEngine(0).OpenDatabase("J:\downloads\test.accdb")
    Set tdf = db.CreateTableDef("test2")
    Set fld = tdf.CreateField("Field1", dbText, 100)
    tdf.Fields.Append fld
    db.TableDefs.Append tdf
    Set fld = Nothing
    Set tdf = Nothing
    db.Close
    Set db = Nothing
End Sub

Regards,