如何解决在 Access 中扫描项目时减去数据库中数量的 VB 代码
我在 Access 中创建了一个数据库,以便在扫描产品时显示数据库中的产品、SKU 和库存。扫描库存时,将在 Inventory IN 表格中加一,在 Inventory OUT 表格中减一。我们现在正在尝试将工作订单实施到相同的表格中。扫描时,我需要 WorkOrders 表中的工作订单编号以及该工作订单需要完成的数量。此外,工作订单的数量需要为每次扫描减少一个。扫描仍会将库存增加 1。 这是我目前为 After Update 事件拥有的 Inventory IN 的代码:
Private Sub ItemCode_AfterUpdate()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Select InvQty from InventoryManagement where ItemCode =" & Me.ItemCode)
With rst
.Edit
!InvQty = !InvQty + 1
.Update
.Edit
End With
End Sub
我需要为此添加代码以允许表单的其他部分工作,即提取该工作订单的工作订单编号和数量金额。这些表是 InventoryManagement 和 WorkOrders。我的数量标签是 txtBuild。此外,我需要一个代码,当工作订单达到 0 时,它会切换到下一个工作订单。如果不可能,请告诉我。
解决方法
好的,所以我想出了第一部分。我运行了 To Build 减少的部分。我运行了与发布的代码相同的代码,但是使用来自另一个表的数据与 On Dirty 事件而不是 After Update。只需要弄清楚 if 语句,当 To Build 变为 0 时,下一个工单的下一行就从需要构建的数量开始。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。