Ms Access中实现向上取整匹配另一张表最近值的方法

完全可以通过Access原生功能实现，不需要借助外部工具，具体操作步骤如下：

前期准备 #

先确认两张基础表的关联字段和必要字段，两张表必须有统一的*产品唯一标识（产品ID/产品编码）*作为关联依据：

• 产品需求表：需包含产品ID、需求总数值、以及你需要保留的其他业务字段（比如施用批次、对应地块、作业时间等）
• 固定调整速率表：需包含产品ID、速率档位值、单档位对应输出量，建议额外新增「档位优先级」字段（数字类型），用来标记拆分时优先选用的档位（比如数值越大优先级越高，优先选大速率档位可以减少拆分后的记录条数）
• 提前创建空的结果表，字段覆盖你需要保留的需求表字段，再加「速率档位」「单次输出量」两个字段即可，用来存最终拆分后的记录。

核心实现逻辑 #

用VBA写遍历拆分的逻辑即可，不需要写复杂的嵌套查询，后续调整拆分规则也很方便：

1. 按Alt+F11打开VBA编辑器，右键点击当前数据库工程插入「标准模块」
2. 在模块中粘贴如下代码，根据你自己的实际字段名替换代码里的字段、表名即可：

Function SplitProductDemand()
    Dim rsDemand As DAO.Recordset, rsRate As DAO.Recordset, rsResult As DAO.Recordset
    Dim remainValue As Double, singleRateValue As Double, useCount As Integer, i As Integer
    
    ' 初始化结果表写入对象
    Set rsResult = CurrentDb.OpenRecordset("结果表", dbOpenDynaset)
    ' 遍历所有待拆分的产品需求
    Set rsDemand = CurrentDb.OpenRecordset("SELECT * FROM 产品需求表", dbOpenSnapshot)
    
    Do While Not rsDemand.EOF
        remainValue = rsDemand!需求总量
        ' 读取当前产品对应的所有速率档位，按优先级从高到低排序
        Set rsRate = CurrentDb.OpenRecordset( _
            "SELECT * FROM 固定调整速率表 WHERE 产品ID='" & rsDemand!产品ID & "' ORDER BY 档位优先级 DESC", _
            dbOpenSnapshot)
        
        ' 逐档位拆分需求量
        Do While Not rsRate.EOF And remainValue > 0
            singleRateValue = rsRate!单档位输出量
            ' 计算当前档位需要拆分出的记录条数
            useCount = Int(remainValue / singleRateValue)
            ' 批量写入对应条数的记录
            For i = 1 To useCount
                rsResult.AddNew
                ' 复制需求表的业务字段，根据你自己的表结构增减
                rsResult!产品ID = rsDemand!产品ID
                rsResult!施用批次 = rsDemand!施用批次
                rsResult!对应地块 = rsDemand!对应地块
                ' 写入当前档位信息
                rsResult!速率档位 = rsRate!速率档位
                rsResult!单次输出量 = singleRateValue
                rsResult.Update
            Next
            ' 计算拆分后剩余的需求量
            remainValue = remainValue - useCount * singleRateValue
            rsRate.MoveNext
        Loop
        
        ' 处理最后剩余不足单档位的量，可根据你实际业务规则调整
        If remainValue > 0 Then
            rsRate.MoveLast ' 取最小档位承接剩余量
            rsResult.AddNew
            rsResult!产品ID = rsDemand!产品ID
            rsResult!施用批次 = rsDemand!施用批次
            rsResult!对应地块 = rsDemand!对应地块
            rsResult!速率档位 = rsRate!速率档位
            rsResult!单次输出量 = remainValue
            rsResult.Update
        End If
        
        rsRate.Close
        rsDemand.MoveNext
    Loop
    
    ' 释放对象
    rsDemand.Close
    rsResult.Close
    Set rsRate = Nothing
    Set rsDemand = Nothing
    Set rsResult = Nothing
    MsgBox "拆分完成，结果已全部写入结果表"
End Function

3. 把光标放到代码任意位置，按F5运行，等待弹出完成提示即可。

后续关联使用 #

生成的结果表直接通过「产品ID+速率档位」两个字段和固定调整速率表关联，就能直接读取设备要求的所有固定输出参数，不需要额外做计算。

如果你有特殊拆分规则（比如必须用固定档位组合、剩余量不能用最小档位承接等），只需要调整代码里计算useCount和剩余量处理的部分即可，整体框架不需要改动。如果不想用VBA，也可以用辅助序号表+笛卡尔积查询实现，但灵活度很低，遇到特殊规则调整成本很高，不推荐。

内容的提问来源于stack exchange，提问作者Milanor