訪問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)