excel vba 在access表中新建字段并自动编号,用CreateDatabase语句,举例如下。
mydata = ThisWorkbook.Path & “\mydata\” & s & “.mdb”
mytable = “清单”
mytablc = “基本信息”
On Error Resume Next
Kill mydata
On Error GoTo 0
Set myDb = CreateDatabase(mydata, dbLangChineseSimplified)
Set myTbl = myDb.CreateTableDef(mytable)
With myTbl
.Fields.Append .CreateField(“序号”, ?, 50)
.Fields.Append .CreateField(“定额编号”, dbText, 50)
.Fields.Append .CreateField(“工程名称”, dbText, 200)
.Fields.Append .CreateField(“单位”, dbText, 20)
.Fields.Append .CreateField(“人工费”, dbSingle)
.Fields.Append .CreateField(“材料费”, dbSingle)
.Fields.Append .CreateField(“机械费”, dbSingle)
.Fields.Append .CreateField(“基价”, dbSingle)
.Fields.Append .CreateField(“计算式”, dbText, 255)
End With
如果觉得《vba如何增加access字段 – 数据库 – 前端》对你有帮助,请点赞、收藏,并留下你的观点哦!