MS Access中如何查询指定Section下最大Subsection值并生成下一个编号

最优方案为绑定窗体BeforeInsert事件触发自动计算，使用Access内置DMax域聚合函数直接查询同章节最大小节值，无需手动遍历记录集，性能最优且兼容所有Access版本。

前置准备 #

先确认表结构字段设置：

• SECTION（章节）字段：使用数字类型（整数）存储
• SUBSECTION（小节）字段：使用数字类型，精度选择Decimal（固定精度）或者双精度，小数位数设置为2，避免浮点计算误差。

实现步骤 #

1. 打开窗体的设计视图，选中窗体对象，打开属性面板的「事件」标签，找到「插入前（BeforeInsert）」事件，选择「事件过程」，点击右侧按钮进入VBA编辑界面。
2. 写入以下逻辑，替换代码中对应表名、控件名为你实际使用的名称：

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim currentSection As Integer
    Dim maxSub As Double
    Dim nextSub As Double

    ' 读取当前录入的章节号
    currentSection = Me!SECTION

    ' 查询对应章节下的最大小节号，无记录则返回0
    maxSub = Nz(DMax("SUBSECTION", "你的实际表名", "SECTION = " & currentSection), 0)

    If maxSub = 0 Then
        ' 章节下无记录，第一个小节为 X.00
        nextSub = currentSection + 0#
    Else
        ' 已有记录，最大值加0.01
        nextSub = maxSub + 0.01
    End If

    ' 赋值给当前新记录的小节字段
    Me!SUBSECTION = nextSub
End Sub

多用户场景优化 #

如果是多用户共享的后端数据库，可在窗体BeforeUpdate事件增加重复校验，避免并发新增时出现重复小节号：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim checkCount As Integer
    checkCount = Nz(DCount("*", "你的实际表名", "SECTION = " & Me!SECTION & " AND SUBSECTION = " & Me!SUBSECTION), 0)
    
    If checkCount > 0 Then
        MsgBox "当前小节号已存在，已自动重新生成"
        Me!SUBSECTION = Nz(DMax("SUBSECTION", "你的实际表名", "SECTION = " & Me!SECTION), 0) + 0.01
    End If
End Sub

注意事项 #

如果业务要求必须用文本类型存储SUBSECTION字段，需要额外增加逻辑拆分小数点前后的数值分别计算后再拼接，性能和稳定性低于数字类型方案，不推荐使用。

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