ms-access - vba代码不插入数据库

Question

我对 Access 非常陌生。有人告诉我，在 access 中插入数据库的方法是使用 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