由于密钥违规而无法追加

Question

这是我第一次开发数据库，​​也是第一次使用 MS Access！我正在尝试通过链接到查询的表单将 1 条新记录附加到表中。

Private Sub cmdAdjustStock_Click()
'Declare Vars
Dim newqty As Long
Dim Qty As Control
Dim change As Control
Dim BoxType As Control
Dim sql As String

'Set form controls to vars
Set Qty = Forms!formMain!txtQty
Set change = Forms!formMain!txtQtyChange
Set BoxType = Forms!formMain!txtBoxType

'Arithmetic and SQL
newqty = Qty + change
sql = "INSERT INTO tblHistory (BoxType, QtyChange, NewQty) VALUES ('&BoxType&','&change&','&newqty&')"

MsgBox "New Quantity = " & newqty & ", Box Type = " & BoxType 'For Debugging
DoCmd.RunSQL sql

End Sub

“tblHistory”有以下字段：PID、logDate、BoxType、QtyChange、NewQty。必填项。 "logDate" 默认值 = Date() 并且 PID 是自动编号。 “tblHistory”目前没有记录，这个追加将是第一个！

“BoxType”与包含 BoxType（Primary）的主列表及其相应数量的表“tblBoxList”的一对多关系的多端。

My MsgBox 显示正确的数量值和表单中的 BoxType（即“RMA-834”）与“tblBoxList”上的主 BoxType ('RMA-834') 匹配。

通过 MsgBox 验证数据后，Append 由于 1 个密钥违规而失败。我假设此违规与 PID（这是一个自动增量编号）或从表单传递的 BoxType 以某种方式与 tblBoxList 中的主节点不匹配有关。这令人困惑，因为 MsgBox 显示的值看起来与 Primary 相同。

仅供参考：此项目中的表已链接。我在网络上的“后端”中有 3 个表。这是只有表单的“前端”。

Answer 1

这是行不通的：

sql = "INSERT INTO tblHistory (BoxType, QtyChange, NewQty) VALUES ('&BoxType&','&change&','&newqty&')"

尝试将其更改为：

sql = "INSERT INTO tblHistory (BoxType, QtyChange, NewQty) VALUES ('" & BoxType & "','" & change & "','" & newqty & "')"

Answer 2

检查您要求 Access 执行的 INSERT 语句。

sql = "INSERT INTO tblHistory (BoxType, QtyChange, NewQty) VALUES ('&BoxType&','&change&','&newqty&')"
Debug.Print sql

运行代码并检查即时窗口中的INSERT 语句。你可以用 Ctrl+g 去那里。

您可以复制语句文本并将其粘贴到新 Access 查询的 SQL 视图中进行测试，这将有助于您诊断问题。如果您需要我们的更多帮助，请将语句文本粘贴到您的问题中。

还可以考虑将INSERT 转换为参数查询。您可以在 VBA 代码中使用该命名查询并在运行时提供参数值。

假设您创建并测试了一个类似于下面的参数查询，您将其命名为 qryHistoryAppend，它包括 pBoxType、pQtyChange、 pNewQty 作为命名参数，您可以在 VBA 中打开该查询（QueryDef 对象），提供参数值并执行它。

Const cstrQuery As String = "qryHistoryAppend"
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
Set qdf = db.QueryDefs(cstrQuery)
qdf.Parameters("pBoxType") = Forms!formMain!txtBoxType
qdf.Parameters("pQtyChange") = Forms!formMain!txtQtyChange
qdf.Parameters("pNewQty") = Forms!formMain!txtQty
qdf.Execute dbFailOnError ' <- always use Execute instead of DoCmd.RunSQL

请注意，如果该代码包含在 formMain 中，您可以引用 Me!txtBoxType 之类的文本框，而不是 Forms!formMain!txtBoxType

我对 qryHistoryAppend 的想法是这样的。根据需要进行调整。

INSERT INTO tblHistory (BoxType, QtyChange, NewQty)
VALUES (pBoxType, pQtyChange, pNewQty);

Answer 3

根据错误消息，听起来您在此处显示的 VB 代码是无关紧要的。在 MS Access 中打开数据库文件，并首先在 Access 中进行查询。