vba - 当计数器在表中命中 0 时循环遍历 MS-Access 中的表

Question

我打算让表在达到 0 时复制一条记录，然后将该表中的数据粘贴到另一个表中，然后将其删除，但没有人会在我的问题上发帖。所以，我使用表单作为生产的 POS。基本上，他们扫描产品并将其分配给具有倒计时称为 ToGo 的工作订单，然后获取数据并将其放入库存中以进行运输。当扫描产品时，一切正常，但是当 ToGo 达到 0 时，我需要代码来循环工作订单。所以这是我的代码

Private Sub ItemCode_Dirty(Cancel As Integer)
Dim Db As DAO.Database
Dim rs As DAO.Recordset

Set Db = CurrentDb

Set rs = Db.OpenRecordset("Select ToGo from WorkOrders where ItemCode =" & Me.ItemCode)

With rs
    .Edit
    !ToGo = !ToGo - 1
    .Update
    .Edit
   

End With
End Sub

在 WorkOrders 表中，字段是 Work Order Number、Creation Date、Supervisor、SKU、Barcode、Product Name、To Build、To Go 和 Built。工单编号是一个简单的编号，例如“W25”，SKU 是条形码上方的简单文本，To Build 是参考编号，To Go 与第一次输入时的 To Build 编号相同，但会减少扫描时，Bult 是运输的参考。

我已经建立了一个表格来显示库存管理表中的所有内容，该表是所有带有 SKU、条形码和手头数量的产品。在表单上扫描时，数量增加 1 并在 InventoryManagment 表上更新。工作订单号和待办事项也显示在表格上，以显示需要进行的生产。

现在，在地板上。生产工人每天都有一个工作站。他们可以每天分配到不同的工作站。他们有多个零件和硬件用于构建产品。然后放入带有条形码扫描的包装中。当您购买我们的产品时，该条码扫描实际上在商店中使用。他们使用答题器来跟踪每个工作订单的产量，然后将其放入盒子中。我正在制作表格，以便他们可以扫描而不是使用答题器。我还有要在表格上显示的工单。

我希望它遍历工作订单，以便当产品 To Go 达到 0 时，下一个工作订单以相同的条形码开始。这是一个跟踪系统，可以为每个工作订单生产适量的产品。我迟早希望从该表中删除该工作订单，但将其放置在已完成的工作订单表中以进行运输。

标签： vbaloopsms-accesseventsdao