MS Access 2016中生成SYYMM001格式自动递增唯一编号求助

你遇到的核心问题是：Access表的默认值表达式不支持DCount这类域聚合函数，所以直接在字段默认值里写会报错。下面提供两种可行的实现方案：

方案一：通过窗体BeforeInsert事件实现（推荐，避免并发重复） #

这是日常录入场景最稳妥的方式：

• 创建绑定到InvoiceTable的录入窗体
• 打开窗体设计视图，找到BeforeInsert事件，进入VBA编辑器，写入以下代码：

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim currentMonth As String
    Dim currentCount As Integer
    
    currentMonth = Format(Date, "yymm") ' 获取当前年月的YYMM格式
    ' 统计当月已生成的同前缀发票数量
    currentCount = DCount("*", "InvoiceTable", "Left([InvoiceCode], 4) = 'S" & currentMonth & "'")
    ' 生成新编号：前缀+年月+递增三位数字
    Me.InvoiceCode = "S" & currentMonth & Format(currentCount + 1, "000")
End Sub

每次在窗体里新增记录时，代码会自动统计当月已有的发票数，生成下一个递增编号，跨月后自动从001重新开始。

方案二：通过表数据宏实现（适合无窗体的场景） #

如果必须在表层面自动生成，可使用Access的数据宏：

1. 打开InvoiceTable的设计视图，点击表工具-设计选项卡中的创建数据宏，选择Before Insert
2. 在数据宏编辑器中依次添加以下操作：
   • SetLocalVar：名称设为currentMonth，表达式填Format(Date(), "yymm")
   • SetLocalVar：名称设为currentCount，表达式填DCount("*", "InvoiceTable", "Left([InvoiceCode], 4) = 'S" & [currentMonth] & "'")
   • SetField：字段选InvoiceCode，值填"S" & [currentMonth] & Format([currentCount]+1, "000")
3. 保存数据宏即可。

注意事项 #

• 并发场景：多用户同时录入时，数据宏方案可能出现重复编号，优先用窗体方案，或者在代码中增加编号唯一性校验
• 历史数据适配：如果表中已有同年月的发票编号，代码会自动统计已有数量，生成正确的递增编号
• 日期用Date()而非Now()：只取日期部分，避免跨零点时的时间干扰

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