12,673
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
==[[Access VBA テーブル作成]]==[[Access ]] 2000
=====DAOを使用=====
Sub CreateTable ()
Dim dbs As [[Database]]
Dim tbl As TableDef
Dim fld As Field
tbl.Fields.Append fld
dbs.TableDefs.Append tbl
dbs.TableDefs.Refresh[[R]]efresh
End Sub
© 2006 矢木浩人
