| ページ一覧 | ブログ | twitter |  書式 | 書式(表) |

MyMemoWiki

Access VBA テーブル作成

提供: MyMemoWiki
ナビゲーションに移動 検索に移動

Access VBA テーブル作成

Access 2000

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