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.