トップ 差分 一覧 ping ソース 検索 ヘルプ PDF RSS ログイン

Access VBA テーブル作成


RSS 無料英単語

目次



記事一覧

キーワード

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



YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto

Copyright© 矢木 浩人 All Rights Reserved.