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