Access 2016 自动序列字段删除编号复用（DMax代码失效）

原有代码失效的核心原因 #

• 你当前把Νούμερο字段设置成了Access原生的自动编号类型，这类字段由数据库独立维护，不支持任何手动赋值操作，你写的VBA赋值代码会被Access直接拦截，根本无法写入字段值，自然达不到预期效果。
• 原有DMax写法没有处理空表场景：当表内没有任何记录时，DMax会返回Null值，Null +1的结果依然是Null，第一次新增记录时根本生成不了编号1。
• 原有逻辑只计算了“最大现有编号+1”，没有真正实现删除编号的复用回收，哪怕字段类型改对了，也只会和原生自动编号一样一直增长，不会填补删除留下的空缺。

可落地的实现步骤 #

1. 调整表字段属性 #

打开Πίνακας1的设计视图，把Νούμερο字段的数据类型从“自动编号”修改为数字-长整型，该类型支持手动赋值，可以正常承载自定义的序列逻辑。字段可以根据需求设置为主键，只要不是自动编号类型，就能正常写入自定义值。

2. 替换窗体BeforeInsert事件的代码 #

修正后的代码会自动处理空表初始化、空缺编号回收、末尾递增的全场景逻辑，直接替换你原来的事件代码即可：

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim maxExistingNo As Long
    Dim availableNo As Long
    Dim gapQuery As String
    
    ' 获取当前表已存在的最大编号，空表场景默认返回0
    maxExistingNo = Nz(DMax("Νούμερο", "Πίνακας1"), 0)
    
    ' 空表时第一个记录直接分配编号1
    If maxExistingNo = 0 Then
        availableNo = 1
    Else
        ' 查询1~最大编号之间第一个未被占用的空缺（也就是被删除可复用的编号）
        gapQuery = "seq From (" & _
                    " SELECT DISTINCT t1.[Νούμερο] + 1 AS seq " & _
                    " FROM Πίνακας1 AS t1 " & _
                    " WHERE t1.[Νούμερο] < " & maxExistingNo & _
                    " ) AS GapTable " & _
                    " WHERE seq Not In (SELECT [Νούμερο] FROM Πίνακας1)"
        availableNo = Nz(DMin(gapQuery), 0)
        
        ' 没有中间空缺时，按最大编号+1的逻辑分配
        If availableNo = 0 Then
            availableNo = maxExistingNo + 1
        End If
    End If
    
    ' 给绑定的编号字段赋值
    Me!Νούμερο = availableNo
End Sub

实际使用的注意事项 #

• 如果你不需要回收中间的删除编号，只需要在删除末尾最大编号时直接复用该值，代码可以进一步简化为：

  Me!Νούμερο = Nz(DMax("Νούμερο", "Πίνακας1"), 0) + 1
  

  只要把字段从自动编号改成数字类型，这段代码马上就能实现你举的“有1/2/3记录，删了3之后新增记录分配3”的基础需求。
• 该编号逻辑由窗体事件触发，不要让用户直接打开表新增记录，否则代码不会执行，会出现编号空缺、重复的问题，所有数据录入都走绑定该事件的窗体即可。
• 多用户同时使用数据库的场景下，建议在赋值环节添加短时的记录锁，避免多个用户同时查询到同一个空缺编号，导致编号重复。
• Access原生的自动编号字段永远不会回收删除的编号，就算执行数据库压缩，也只会重置末尾未使用的编号段，完全不适合可复用编号的需求场景，不要试图修改原生自动编号的分配逻辑。

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