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.