Как мне создать таблицу в MS-Access, используя VBA, а не в currentdb

Question

Первый пользователь здесь. Мне нужно создать новую таблицу в Access, используя VBA, но не в currentdb. Как я могу выполнить sh это?

Спасибо, Римуру

Answer 1

Это можно сделать двумя способами.

Во-первых, вы можете использовать SQL для этого:

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

Во-вторых, вы можете использовать DAO для этого:

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

С уважением,