17《用Access分析数据》视频教程

来源:Access专家课堂 点击数:4020 　 | 收藏 | 复制

时　间:2020-07-30 11:39:52
作　者:张志 ID：8 城市：上海 QQ：2851379730
摘　要:《用Access分析数据》第17课有缺口的物料分配库存
正　文:

一、课程介绍：

▲ 之前完成【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