Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

怎样写vba代码能够实现在该《商品库存及配送管理系统》中根据库存和需求自动调配商品?

清风徐来  发表于:2016-03-07 16:26:44  
复制

我做的《商品库存及配送管理系统》中的“商品配送”窗体包含“需求”主窗体和“库存”、“配送”2个子窗体,“需求”主窗体的每条记录显示某一分场对某种商品的需求数量,“库存”子窗体显示来自多个供货商的该种商品的库存数量,“配送”子窗体用于根据“库存”子窗体中显示的库存数量为该分场配送其所需数量的该种商品,并在确认配送的同时更新库存和需求数据。目前是人工操作,即在“需求”主窗体中新录入一条记录后,将“库存”子窗体中第一条记录的 “库存ID”、“供货商”字段值分别录入“配送”子窗体的“库存ID”、“供货商”字段中,然后视以下情形进行不同的操作:

一、若该条记录的“库存数量”字段值大于或等于“需求”主窗体的“需求数量”字段值,则在“配送”子窗体的“配送数量”字段中录入“需求”主窗体的“需求数量”字段值,点击“确认配送”按钮,更新“库存”子窗体中该条记录的“库存数量”字段值、“需求”主窗体中的“需求数量”字段值;

二、若该条记录的“库存数量”字段值小于“需求”主窗体的“需求数量”字段值,则在“配送”子窗体的“配送数量”字段中录入该条记录的“库存数量”字段值后,点击“确认配送”按钮进行库存和需求数据更新,然后将“库存”子窗体中的下一条记录的“库存ID”、“供货商”字段值分别录入“配送”子窗体下一条记录(下一行)的“库存ID”、“供货商”字段中,若该条记录的“库存数量”字段值仍小于“需求”主窗体的“需求数量”字段值,则重复进行上述操作,直至更新后的“库存数量”字段值大于或等于“需求”主窗体的“需求数量”字段值的记录,则重复上述第一种情形下的操作。

          求教:怎样写vba代码实现在“需求”主窗体中录入一条记录后,点击“配送”按钮就能自动完成上述操作(即实现商品的自动调配)?另请帮我看看程序是否还有其他需改进之处。谢谢!点击下载此附件

 

Top
朱先生 发表于:2016-04-07 11:24:37

还在改呀

是不是想让

“该项需求的配送未拟定方案或已完成” 提示框不出现?

用了 MSGBOX 对  DoCmd.SetWarnings False 是不起作用的

如果不想让提示框出现,不要用  MSGBOX

改用文本框显示 “该项需求的配送未拟定方案或已完成”

me.text35=“该项需求的配送未拟定方案或已完成”

下一需求加

ME.TEXT35=""

不知我是否理解错了你的意图



朱先生 发表于:2016-04-07 11:25:07

 



清风徐来 发表于:2016-04-07 14:39:51
朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。

清风徐来 发表于:2016-04-07 15:23:03
朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null中的Null应为"",改了后问题已圆满解决。我想这一历时整整一个月、来回20多篇帖子的课题终于可以结案了,就把您最后给我的“有变化的示例”作为最佳答案了。两个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了这两个积分帮我的,就请您姑且笑纳吧。希望以后有问题还能得到您的慷慨襄助。

清风徐来 发表于:2016-04-07 15:32:46
朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!

清风徐来 发表于:2016-04-07 15:33:51

朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!



清风徐来 发表于:2016-04-07 15:38:28

朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!



清风徐来 发表于:2016-04-07 15:40:44

朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!



清风徐来 发表于:2016-04-07 15:59:25

朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!



清风徐来 发表于:2016-04-07 16:01:58

朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!



清风徐来 发表于:2016-04-07 16:02:35
为啥发不出贴了?

朱先生 发表于:2016-04-07 16:08:42

我不是为积分在做,积分多了没啥用处

认为可以结贴就结吧,免得占用待解决问题的版面

 就如你3楼所言吧,也算行善积德哦

这一次做的时间还不算多的,上一次做彩票11选5用的时间还要长



清风徐来 发表于:2016-04-07 23:17:07

朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!



清风徐来 发表于:2016-04-07 23:17:40

朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!



清风徐来 发表于:2016-04-07 23:20:27

朱先生好!上午请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!



清风徐来 发表于:2016-04-08 16:36:22

朱先生好!昨天请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!

MY商品配送(最终版)

清风徐来 发表于:2016-04-08 17:04:55

朱先生好!昨天请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!

MY商品配送(最终版)

清风徐来 发表于:2016-04-08 17:10:49

朱先生好!昨天请教的问题我已找到原因:条件表达式 Forms!商品配送!拟配送数量 <> Null 中的Null应为"",改了后问题已圆满解决。我想这一历时整一个月、来回20多篇帖子的课题终于可以结帖了,就把您最后给我的“有变化的示例”作为最佳答案了。2个积分的奖励对于您的付出实在太微薄,但我也无法给您多加些,我想您也不是为了积分帮我的,就请姑且笑纳吧。希望以后还有机会得到您的慷慨相助,祝您万事胜意!

MY商品配送(最终版)

总记录:38篇  页次:2/2 9 7 1 2 :