0

我正在 MS Access 2007 中开发一个食堂交易系统。在我的“添加食品项目：”表单中，我有一系列文本框和组合框、一个按钮、“添加项目”和一个列表框。文本框和组合框的名称如下：

文本框名称：txtRate, txtQty

组合框名称：cbxICode、cbxItems

单击“添加项目”按钮后，所选项目及其数量、费率等将被转移到列表框。（我问过这里的转会问题）

现在，在我的 tblItems 中，有一个“QtyAvailable”字段，表示当前存在的食品的可用数量。我如何：

  • 从 tblSampleData 的 QtyAvailable 字段中减去用户输入的食品数量？

高级帮助表示赞赏。

谢谢，

S桑迪普

4

2 回答 2

1

下面的代码帮助了我：

Dim cdb as CurrentDb, rst As DAO.Recordset, qtySelected as Long
qtySelected = Me.txtQty.Value
Set rst = cdb.OpenRecordset ("tblItems", dbOpenDynaset)
With rst
.Edit
!QtyAvailable = rst!QtyAvailable - qtySelected
.Update
.Close
End With

有关更多详细信息，请访问我提出的问题并在此处查看最新评论

于 2013-05-15T12:07:42.440 回答
0

编写一个在表上执行任务的查询定义。您可以通过将参数括在方括号中来在查询 def 中设置参数。当 MS Access 无法识别方括号中的名称时，它会提示用户输入值。

一旦正常工作，请在 NET 中搜索有关使用 ADO 或 DAO 以在内存中获取查询 def 的副本、设置参数值并执行查询的 VBA 示例。RECORDSET 用于 SELECT，EXECUTE 用于 INSERT、UPDATE 和 DELETE

于 2013-05-05T17:58:51.887 回答