Access中按SamplePeriod批量生成Case#连续三位编号的VBA实现

核心逻辑说明 #

针对SamplePeriod字段值相同的记录，从001开始生成连续三位编号，新增同周期记录自动从上次编号续接。我们用DMax函数获取每个周期已有的最大编号，加1后格式化为带前导零的三位字符串，批量填充Case#为空的新导入记录。

VBA代码实现 #

打开Access，按下Alt + F11进入VBA编辑器，右键点击左侧工程窗口的数据库名称，选择插入→模块，粘贴以下代码：

Sub GenerateCaseNumbers()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim maxNum As Integer
    Dim newNum As String
    
    ' 替换为你的实际表名
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM 你的表名 WHERE [Case#] IS NULL OR [Case#] = ''", dbOpenDynaset)
    
    Do While Not rs.EOF
        ' 获取当前SamplePeriod的最大Case#，无记录则返回0
        maxNum = Nz(DMax("[Case#]", "你的表名", "[SamplePeriod] = '" & rs!SamplePeriod & "'"), 0)
        ' 生成三位带前导零的新编号
        newNum = Format(maxNum + 1, "000")
        
        ' 更新当前记录的Case#字段
        rs.Edit
        rs![Case#] = newNum
        rs.Update
        
        rs.MoveNext
    Loop
    
    ' 清理资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "编号生成完成！", vbInformation
End Sub

提示：如果SamplePeriod是日期类型，把代码中'改为#，即"[SamplePeriod] = #" & rs!SamplePeriod & "#"

调用方法（三种可选） #

方法1：直接在VBA编辑器运行 #

1. 打开VBA编辑器（Alt + F11）
2. 找到刚才创建的模块，选中GenerateCaseNumbers子程序
3. 点击工具栏的绿色三角运行按钮

方法2：添加窗体按钮调用 #

1. 创建空白窗体（设计视图）
2. 从控件工具箱添加按钮，向导中选运行宏→新建
3. 在宏设计窗口，操作选RunCode，函数名称填GenerateCaseNumbers()
4. 保存宏和窗体，点击按钮即可执行

方法3：通过宏直接调用 #

1. 打开宏设计，添加RunCode操作
2. 函数名称填写GenerateCaseNumbers()
3. 保存宏，运行宏完成批量编号

注意事项 #

• 运行前建议备份表数据，避免意外错误
• 确保已有非空Case#是合法的三位数字（如001、002），否则DMax无法正确识别最大值
• 若需要单条新增记录时自动生成编号，可把代码整合到表的AfterInsert事件中

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