vba - 将两条记录添加到表 MS Access

Question

我有一个表单，它允许用户将记录添加到表中，但是当单击“创建操作”按钮时，会将两条记录添加到表中，而不是一条。当我添加第二个时，额外的记录将更改为添加的最新记录。这种情况继续发生，我的表中总是有 1 条额外记录。我将如何改变这一点？

这是我用来添加记录的代码：

Private Sub Save_Operation_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset


strElement = Me.Element.Value
strOperation = Me.Operation.Value
strProduct = Me.Product_ID.Value
strTime = Me.Time.Value
strQty = Me.Qty.Value




Set db = CurrentDb
Set rs = db.OpenRecordset("Labour", dbOpenTable)

rs.AddNew
rs("Element").Value = strElement
rs("Operation").Value = strOperation
rs("Product_ID").Value = strProduct
rs("Time").Value = strTime
rs("Qty").Value = strQty
rs.Update

Answer 1

我认为问题在于“addnew”的使用，所以试试这个：

With rs
   .AddNew
   !Element = strElement
   !Operation = strOperation
   !Product_ID = strProduct
   !Time = strTime
   !Qty = strQty
   .Update
End With

Answer 2

我遇到了同样的问题，经过一番困惑后，我为我解决了这个问题。我已将表单字段上的控制源设置为使用按钮向其中添加记录的表。我必须完全删除控制源，然后重复输入停止。