MS Access：将当前记录中的值插入另一个表答案

【问题标题】：MS Access: Inserting value from current record into another tableMS Access：将当前记录中的值插入另一个表
【发布时间】：2021-01-02 13:44:10
【问题描述】：

我有一个按钮，它应该从当前记录中获取“地址”字段，并将其添加到 TAddressCorrectionExclusions 表中，该表仅包含 ID（自动编号）和地址。但是，当我运行以下代码时，它会提示输入 tempaddress 的值。如何将当前记录的“地址”字段存储为临时地址？

Dim SQL As String
Dim TempAddress As String
TempAddress = Me.Address ' This is the part that's not working
SQL = "INSERT INTO TAddressCorrectionExclusions (Address) VALUES (TempAddress)"
DoCmd.RunSQL SQL

【问题讨论】：

连接变量输入。 INSERT INTO TAddressCorrectionExclusions(Address) VALUES('" & TempAddress & "')"。评论stackoverflow.com/questions/49509615/…
就是这样，谢谢！现在我只需要弄清楚为什么会这样。

标签： sql vba ms-access insert

【解决方案1】：

因为TempAddress 在任何引用的上下文中都不是命名字段，所以查询引擎会提示您输入这样的值（如果不使用 MS Access GUI，这确实是一个错误）。请注意您如何像使用其他标识符一样使用 TempAddress：TAddressCorrectionExclusions 和 Address。

请记住，SQL 是与 VBA 分开的一个进程，并且对它的应用层一无所知。这包括带有其他应用层的 SQL：Java、Python、PHP、C# 等。

INSERT INTO TAddressCorrectionExclusions (Address) VALUES (TempAddress)

您真正想要做的是将 VBA 变量 TempAddress 的基础值传递到 SQL 查询中。因此，通常的答案是将 VBA 变量连接到 SQL 查询中，将字符串值用引号括起来。

SQL = "INSERT INTO TAddressCorrectionExclusions (Address) VALUES ('" & TempAddress & "')"

但是，更好的解决方案是直接在存储查询中使用表单控件，如果打开表单，该查询将值识别为参数。这有效地将 SQL 与 VBA 分开，以提高可读性和可维护性。

SQL （另存为存储的 Access 查询；调整“myform”名称）

INSERT INTO TAddressCorrectionExclusions (Address) VALUES (Forms!myform!Address)

VBA （单行命令；动作查询不需要关闭）

DoCmd.OpenQuery "mySavedAppendQuery"

【讨论】：

非常感谢，这非常有帮助！