添加字段来记录

Question

我一直在努力，使这个代码在获得工作，只是一个新的领域列添加到一个名为“收藏”表，但似乎访问不做任何事情：

Sub CreateCalculatedField() 
Dim dbs As DAO.Database 
Dim tdf As DAO.TableDef 
Dim fld As DAO.Field2 
' get the database 
Set dbs = CurrentDb() 

' create the table 
Set tdf = dbs.CreateTableDef("Collections") 

' create the fields: first name, last name 

tdf.Fields.Append tdf.CreateField("Running Total", dbText, 20) 

Cleanup: 
Set fld = Nothing 
Set tdf = Nothing 
Set dbs = Nothing 
End Sub 

有我错过了什么？

Answer 1

是的，你需要告诉dbs你想创建表。

Dbs.TableDefs.Append TDF