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

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