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

我正在MS Access 2007中开发食堂事务处理系统。在我的addfooditem:form中，我有一系列文本框和组合框、一个按钮、additem和一个列表框。文本框和组合框的名称如下：

文本框名称： txtRate， txtQty

组合框名称： cbxICode， cbxItems

单击“添加项目”按钮，所选项目及其数量、费率等将传输到列表框。我问了转会问题

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

从tblSampleData中的QTYAAvailable字段中减去用户输入的食品数量？ 感谢高级帮助

谢谢

---

S sandep

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

---

一旦工作正常，使用ADO或DAO在网络中搜索VBA示例，以获取内存中查询定义的副本，设置参数值并执行查询。记录集用于选择，执行用于插入、更新和删除下面的代码帮助了我：

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

---

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

到目前为止您得到了什么代码？问题中有超链接，对吗？我问过一个叫Gord Thompson先生的问题，关于如何将组合中的值转移到列表中。如果您能告诉我您的电子邮件id，我可以直接向您发送整个accdb.chris.bain。cube@gmail.com当前位置将此文件扔出去，看起来您可能想要使用DLookup