Office中国论坛/Access中国论坛

标题: 关于物料递减的问题： [打印本页]

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

作者: yanwei82123300 时间: 2009-9-14 07:36
请各位老师给看看，不胜感谢

作者: liwen 时间: 2009-9-14 13:51
如果用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 时间: 2009-9-14 18:05
谢谢老师的帮助，请问在excel存在的源代码可以转到access中吗？请帮助一下
我公司的系统为四班系统，对于生产计划存在严重缺陷，我们只能够在IT将系统数据导出后在编辑，太落后了

作者: liwen 时间: 2009-9-14 21:35
你的EXCEL存在的源代码转到ACCESS里是没有用的,但ACCESS里可以编写类似的代码;我看你还是整理好你的程序思路再说吧.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)