如何从表格中的字段（Access '07 VBA）中减去表格中文本框中的值？

Question

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

文本框名称： txtRate， txtQty

Combobox名称： cbxICode， cbxItems

点击“添加项目”按钮后，所选项目及其数量，费率等将转移到列表框。 （我问过转移问题here）

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

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

高级帮助表示赞赏。

谢谢，

S Sandeep

Answer 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

有关详细信息，请访问我提出的问题并查看最新评论here

Answer 2

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

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