3

我对访问非常陌生。有人告诉我,在访问中进行数据库插入的方法是使用 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 确实存在并且拼写正确。问题是什么?

4

1 回答 1

9

在这种情况下,您可能会发现使用 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
于 2013-06-11T18:01:07.613 回答