「Access VBA テーブル作成」の版間の差分
ナビゲーションに移動
検索に移動
(ページの作成:「==Access VBA テーブル作成== Access 2000 =====DAOを使用===== *参照設定が必要 *[http://www.accessclub.jp/ado/01.html データベースの新規作成…」) |
|||
1行目: | 1行目: | ||
− | ==Access VBA テーブル作成== | + | ==[[Access VBA テーブル作成]]== |
− | Access 2000 | + | [[Access]] 2000 |
=====DAOを使用===== | =====DAOを使用===== | ||
7行目: | 7行目: | ||
Sub CreateTable () | Sub CreateTable () | ||
− | Dim dbs As Database | + | Dim dbs As [[Database]] |
Dim tbl As TableDef | Dim tbl As TableDef | ||
Dim fld As Field | Dim fld As Field | ||
18行目: | 18行目: | ||
tbl.Fields.Append fld | tbl.Fields.Append fld | ||
dbs.TableDefs.Append tbl | dbs.TableDefs.Append tbl | ||
− | dbs.TableDefs. | + | dbs.TableDefs.[[R]]efresh |
End Sub | End Sub |
2020年2月16日 (日) 04:21時点における最新版
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
© 2006 矢木浩人