vba代码没有INSERT进入数据库

Question

我很新.我被告知在访问中进行数据库插入的方法是使用CurrentDb对象(只要该表在同一个数据库中,并且在我的情况下.)我制作了这段代码,没有错误,但它没有不要插入.

Private Sub Add_Delete_Click()

Dim query As String
query = "Insert Into tbl_Inventory_History (InventoryID, Modification_Date, Change)"
query = query & "Values (" & Me.InventoryID & ",#" & Now() & "#," & Me.Quantity & ")"
CurrentDb.Execute query
End Sub

此代码在"库存表单"页面中单击按钮运行.我希望它在库存历史记录页面上插入对库存所做的任何更改.我确保tbl_Inventory_History确实存在且拼写正确.有什么问题？

Answer 1

在这种情况下,您可能会发现使用Recordset添加记录更方便,而不是"粘合在一起"SQL语句,就像这样

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("tbl_Inventory_History", dbOpenTable)
rst.AddNew
rst!InventoryID = Me.InventoryID
rst!Modification_Date = Now()
rst!Change = Me.Quantity
rst.Update
rst.Close
Set rst = Nothing