访问VBA无法创建表

Question

我无法使用VBA创建Access表，然后通过打开记录集访问它。我的目标是将记录写入表格中。如果我手动创建表格，我的代码完美地工作。如果该表不存在，程序将终止于开放记录集尝试。错误味精：

“的MSO Access数据库引擎找不到对象‘mytable的’

其中‘mytable的’是argTable的值下面的代码片段：

Dim tbl As DAO.TableDef 
Dim db As DAO.Database 
Dim fld As DAO.Field 

Set db = CurrentDb() 
Set tbl = db.CreateTableDef(argTable) 
Set fld = tbl.CreateField("F1") 

Set rstAccessTableOut = db.OpenRecordset(argTable, dbOpenTable) 

什么我做错了什么？（请注意，我不希望使用SQL。）

Answer 1

完成后添加你要追加新表中的字段高清的采集是能够使用它。此外，该字段也需要附加

Dim tbl As DAO.TableDef 
Dim db As DAO.Database 
Dim fld As DAO.Field 

Set db = CurrentDb() 
Set tbl = db.CreateTableDef(argTable) 
Set fld = tbl.CreateField("F1", dbText, 20) 

tbl.Fields.Append fld 

db.TableDefs.Append tbl 

Set rstAccessTableOut = db.OpenRecordset(argTable, dbOpenTable)