「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 矢木浩人
