关于物料递减的问题：

yanwei82123300

我在excel中录制了一个宏（macro2）并建一个命令来激活它。
现在我想将此宏的代码应用到access中，
我想在窗体中添加一个命令即可生成atp递减值，
注意：COMP_WC为零件号；QUANTITY为订单（BOM）的需求量；OHND_QTY为库存量 ；atp为需要添加的递减值（就像excel激活后生成的值）
现附上excel文件和acces测试文件，请各位老师给看看，不胜感谢

yanwei82123300

请各位老师给看看，不胜感谢

liwen

如果用VBA可以一条一条的赋值,如用查询,我看你的"OHND_QTY"库存量好象一个物料都是一样的,如"SHIP_DATE"会一定不一样,可用其区分先后顺序,不然最后另加一行自动ID,因为ACCESS没有数据存放的先后顺序的概念.
在查询中可参照这样的语句:
ATp1: IIf(([OHND_QTY]-DSum("[QUANTITY]","[tblA]","[COMP_WC]='" & [COMP_WC] & "' and [SHIP_DATE] <=#" & [SHIP_DATE] & "#"))<0,-[QUANTITY],[OHND_QTY]-DSum("[QUANTITY]","[tblA]","[COMP_WC]='" & [COMP_WC] & "' and [SHIP_DATE] <=#" & [SHIP_DATE] & "#"))

由于你的每一品种的[SHIP_DATE] 不是唯一的,另加一个ID用以区别先后顺序.
SELECT tblA.*, IIf(([OHND_QTY]-DSum("[QUANTITY]","[tblA]","[COMP_WC]='" & [COMP_WC] & "' and [ID] <=" & [ID] & ""))<0,-[QUANTITY],[OHND_QTY]-DSum("[QUANTITY]","[tblA]","[COMP_WC]='" & [COMP_WC] & "' and [ID] <=" & [ID] & "")) AS ATp1
FROM tblA;

yanwei82123300

谢谢老师的帮助，请问在excel存在的源代码可以转到access中吗？请帮助一下
我公司的系统为四班系统，对于生产计划存在严重缺陷，我们只能够在IT将系统数据导出后在编辑，太落后了

liwen

你的EXCEL存在的源代码转到ACCESS里是没有用的,但ACCESS里可以编写类似的代码;我看你还是整理好你的程序思路再说吧.