一、课程介绍:
▲ 之前完成【tbl未领完物料明细】表,并写入了相应的数值,即掌握了未领完物料清单中所有物料的库存、到货、采购、请购数量,是不是物料有缺口,就只需要判断这个表中有没有相应的数值即可。库存分配要点:
1.按投料单的顺序(即优先分配)对库存进行分配;
2.只需要对物料缺口为Null值的记录进行分配(表中4千多记录,有缺口的才1百多条,涉及效率问题);
3.已分配过的,要在【库存已分配】中写入数值,当下一次遇到同样的物料需要分配库存时,才知道库存还余下多少没有分配的数量;
4.当分配后满足了物料的缺口时,要在【缺口数量】中写入0,即不再是Null值
▲ 用DAO结合循环语句来分配库存量:
Private Sub fpkc()
Dim rst As DAO.Recordset
Dim strSQL As String '声明一个文本型的变量
strSQL = "SQL代码"
Set rst = CurrentDb.OpenRecordset(strSQL, 2) '打开记录集,相当于打开一个表
rst.MoveFirst '移到第1条记录
Do Until rst.EOF '循环语句
rst.Edit '允许编辑记录
rst!库存数量 = 某个值
rst.Update '更新值
rst.MoveNext '移到下一条记录
Loop
rst.Close '关闭记录集
Set rst = Nothing '释放对象
End Sub
二、扫码听课:
三、电脑学习:
请点击网址:https://m.qlchat.com/wechat/page/live/840000166145996 (点开后需要用微信扫描登录)