DSum＆amp;将查询代码转换为VBA

Question

Query

请参阅上面的图片链接。

您好。我希望Running_Total按其产品计算Total_Good_Count。我已经使用Query成功创建了它。然而，这并不是我想要的。

例如，对于RecordID 3，Running_Total将为684. RecordID 4，Running_Total将为684 + 964 = 1,648。有可能吗？

这些是查询中的当前代码：

Running_Total:DSum("[Total_Good_Count]","2_WIP","[Product] = '"&[Product]&"'")

Total_WIP:[Running_Total]-[WIP_Cleared]

此外，如何将这些代码更改为VBA？我实际上在Query中尝试过DSum，因为在线提供的大多数解决方案都在Query中。然后，VBA代码将位于表单的按钮中。

Answer 1

尝试：

Running_Total: DSum("[Total_Good_Count]","2_WIP","[Product]='" & [Product] & "' And [RecordID]<=" & [RecordID] & "")

和

Total_WIP: DSum("[Total_Good_Count]","2_WIP","[Product]='" & [Product] & "' And [RecordID]<=" & [RecordID] & "")-WIP_Cleared