Microsoft Access附加VBA

Question

如果ID不存在，我正在尝试自动将查询中的记录追加到表中。在遇到问题时，我什至尝试从其他一些已知的数据库中使用VBA，并将其放入目标数据库中。不过，我仍然收到相同的错误。出现错误时，它将突出显示“ dbs作为数据库”。

错误-“编译错误：未定义用户定义的类型”

Function HistoricTable()

Dim dbs As Database
Dim qdf As QueryDef


Set dbs = CurrentDb

dbs.Execute "insert into [Destination_Table]  SELECT * FROM [Query Name]  "



End Function

谢谢！

Answer 1

您必须在VBA编辑器中添加对DAO库的引用。在我以前的Access中，它位于菜单Tools > References...

中

您还可以删除ADODB库（另一​​种数据库访问技术）。

Answer 2

我相信应该是这样的。

INSERT INTO target [(field1[, field2[, …]])]
VALUES (value1[, value2[, …]])

有关更多信息，请参见下面的链接。

http://www.fmsinc.com/microsoftaccess/query/snytax/append-query.html