北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
我做的《商品库存及配送管理系统》中的“商品配送”窗体包含“需求”主窗体和“库存”、“配送”2个子窗体，“需求”主窗体的每条记录显示某一分场对某种商品的需求数量，“库存”子窗体显示来自多个供货商的该种商品的库存数量，“配送”子窗体用于根据“库存”子窗体中显示的库存数量为该分场配送其所需数量的该种商品，并在确认配送的同时更新库存和需求数据。目前是人工操作，即在“需求”主窗体中新录入一条记录后，将“库存”子窗体中第一条记录的 “库存ID”、“供货商”字段值分别录入“配送”子窗体的“库存ID”、“供货商”字段中，然后视以下情形进行不同的操作：
一、若该条记录的“库存数量”字段值大于或等于“需求”主窗体的“需求数量”字段值，则在“配送”子窗体的“配送数量”字段中录入“需求”主窗体的“需求数量”字段值，点击“确认配送”按钮，更新“库存”子窗体中该条记录的“库存数量”字段值、“需求”主窗体中的“需求数量”字段值；
二、若该条记录的“库存数量”字段值小于“需求”主窗体的“需求数量”字段值，则在“配送”子窗体的“配送数量”字段中录入该条记录的“库存数量”字段值后，点击“确认配送”按钮进行库存和需求数据更新，然后将“库存”子窗体中的下一条记录的“库存ID”、“供货商”字段值分别录入“配送”子窗体下一条记录（下一行）的“库存ID”、“供货商”字段中，若该条记录的“库存数量”字段值仍小于“需求”主窗体的“需求数量”字段值，则重复进行上述操作，直至更新后的“库存数量”字段值大于或等于“需求”主窗体的“需求数量”字段值的记录，则重复上述第一种情形下的操作。
求教：怎样写vba代码实现在“需求”主窗体中录入一条记录后，点击“配送”按钮就能自动完成上述操作（即实现商品的自动调配）？另请帮我看看程序是否还有其他需改进之处。谢谢！
点击下载此附件
朱先生好！衷心感谢您的热心帮助！
关于库存记录数增大和存在重复记录的问题，我想我需要解释一下：我的库存表需要将每个供应商每次、每种商品的入库数量分别记录，而不是把同一个供应商的同一种商品的入库数量累加起来，因此对于同一个供应商和同一种商品来说必然有重复记录，换言之，我的库存表和入库表的记录是一一对应的，和入库表一样会不断增大。之所以如此，是因为我需要在配送记录里查询每一次配送的每一种商品来自哪一个供应商的哪一次供货，这是我的库存表与一般库存表不同之处。
我的程序是用access2010版做的，我试过转存为2003格式未成功，提示说“不能用旧版本的格式保存此数据库，因为此数据库使用的某些功能需要使用当前的文件格式”。
现将修改过的附件上传，麻烦您再帮我看看。谢谢！点击下载此附件
朱先生您好！根据您的意见，我已决定从我的终极目标——一键自动调配退而求其次，采用您惠赐的示例的方案，并根据我的需要对该方案作了一些小的修改，做成了此次上传的附件。我的修改包括：1、由于我需要在每一项需求的配送完成后能够在“商品配送”窗体中查看其配送记录，故删除了“需求数量”的筛选条件“>0”；2、由于我只需在“商品配送”窗体中看到当前需求对应的配送记录，让窗体中显示的数据更清晰明了，故通过将“需求ID”添加为链接字段，使“配送表子窗体”只显示当前需求对应的配送记录；3、我原打算把那两个过渡字段的“可见”属性设置为“否”，后来考虑到为了准确把握操作进度，避免操作过程中忘了进行到哪一步了（是否已双击过“库存ID”），故让它们仍然可见，但根据其性质和作用，将名称分别改为了“拟配送数量”和“对应库存ID”；4、在“确认配送”按钮（原“配送商品”按钮，我认为这个名称与“拟配送数量”字段相配更准确）的单击事件代码的两条更新语句后加上了“Forms!商品配送!拟配送数量 = Null”和“Forms!商品配送!对应库存ID = Null”，让这两个字段在每次配送完成后显示空值，目的是避免只显示最后一次拟配送数据，与前面的需求记录没有对应关系的这两个字段的值造成逻辑混乱；5、在“库存表子窗体”的“库存ID”文本框的双击事件过程代码的“If……Else……”语句中间加上了“Elseif……”，设置条件为：库存数量 < Forms!商品配送!需求数量，将“Else……”的操作改为：MsgBox "该项需求的配送已完成"，目的是避免重复配送。麻烦您再帮我看看还有没有什么问题。
另外，我曾试图在Access 10版的“保存并发布”那里将Accdb格式的数据库文件转存为mdb格式（“百度”到的几乎都是此法）未果，系统提示“不能用旧版本的格式保存此数据库，因为此数据库使用的某些功能需要使用当前的文件格式”，您说过Accdb转mdb有很多方法，不知通过安装03版，在03版里导入10版里的数据库对象后保存为mdb格式是否可行？我想可能低版本无法导入高版本创建的对象吧。有些什么可行的方法？关于这个问题，也请您不吝赐教。
非常感谢您不厌其烦的热心指点！
