Access VBA テーブル作成

Access VBA テーブル作成

Access 2000

DAOを使用

• 参照設定が必要
• データベースの新規作成、テーブル、クエリの作成はADOでは実現できません。発展的な機能であるADOXで実現します。この点が全ての操作が可能なDAOと異なります。

Sub CreateTable ()
    Dim dbs As Database
    Dim tbl As TableDef
    Dim fld As Field

    Set dbs = CurrentDB

    Set tbl = dbs.CreateTableDef("NewTableName")
    Set fld = tbl.CreateField("NewField", dbText)

    tbl.Fields.Append fld
    dbs.TableDefs.Append tbl
    dbs.TableDefs.Refresh
End Sub