時　間:2016-08-02 13:29:20

作　者:摘　要:用代碼創建數據表并新增字段

正　文:

在DAO中，可以通過CreateTableDef方法在數據庫中創建新的數據表，其具體的語法格式如下所示：

Set[表對象變量]=[數據庫對象].CreateTableDef([表名])

在為數據庫添加了指定名稱的表后，還需將其添加到表對象集合中，才能夠真正實現將表添加到數據庫中，具體的語法格式如下所示：

[數據庫].TableDefs.Append[表]

如果需要為表中新增字段，則需要使用下面的語句來實現：

[表].Field.Append[表].CreateField([字段名],[數據類型],[長度限制])

其中,字段類型為Access數據類型常量，字段長度限制單位為字節，表示該字段允許的多長的數據輸入。

在DAO中，需要為某個字段設置字段特征，可以使用字段的Attributes屬性，其具體用法格式為：

[字段].Attributes[字段特征常量]

其中，字段特征常量為數據庫內置的常量，用于表示字段的特征，比如用于表示不可更改的自動編號的常量dbAutoIncrField.

附 ??件:

GIF?圖:

代 ??碼：

On Error GoTo Errorhandler

Dim db As DAO.Database

Dim Tb As DAO.TableDef

Dim fld As DAO.Field

'在當前數據庫中創建 "商品信息表"

Set db = CurrentDb

Set Tb = db.CreateTableDef("商品信息表")

'為商品信息表添加字段

Set fld = Tb.CreateField("商品ID", dbLong)

'設置新增字段特征為自動編號

fld.Attributes = dbAutoIncrField

'將新增字段添加到表的字段集合之中

Tb.Fields.Append fld

Tb.Fields.Append Tb.CreateField("商品編碼", dbText)

Tb.Fields.Append Tb.CreateField("品名規格", dbText, 18)

Tb.Fields.Append Tb.CreateField("分類編號", dbCurrency)

Tb.Fields.Append Tb.CreateField("單位", dbText)

Tb.Fields.Append Tb.CreateField("日期", dbDate)

Tb.Fields.Append Tb.CreateField("最新進價", dbCurrency)

Tb.Fields.Append Tb.CreateField("成本價", dbCurrency)

Tb.Fields.Append Tb.CreateField("售價", dbCurrency)

Tb.Fields.Append Tb.CreateField("備注", dbMemo)

Tb.Fields.Append Tb.CreateField("已停用", dbBoolean)

'將商品信息表添加到對象集合之中

db.TableDefs.Append Tb

'刷新數據庫

Application.RefreshDatabaseWindow

Set Tb = Nothing

db.Close: Set db = Nothing

DoCmd.Close

Exit Sub

Errorhandler:

MsgBox "您正在創建的商品信息表已經存在！"

Access軟件網QQ交流群(群號:39785885)

Access源碼網店

與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的access vba表字段_【Access】创建数据表并新增字段的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。