MS Access中实现Client_Number手动修改与自动生成的解决方案

刚好之前帮朋友解决过类似的Access编号需求，完全有可行方案，给你两个实用的思路：

首先明确：Access确实不允许一个表有多个Autonumber字段，但我们可以用长整型数字字段替代，再通过表单事件实现自动编号逻辑，完美适配你的需求：

• 第一步：给目标表新增Client_Number字段，类型选「长整型」，允许空值（方便旧客户手动录入原编号）。
• 第二步：打开客户录入表单（没有的话就建一个），在表单的BeforeInsert事件中添加VBA代码：

  Private Sub Form_BeforeInsert(Cancel As Integer)
      ' 仅当Client_Number为空时（新增未手动赋值的客户），自动分配编号
      If IsNull(Me.Client_Number) Then
          ' 取当前表中最大的Client_Number，无数据则从4000开始（+1后就是4001）
          Dim nextClientNum As Long
          nextClientNum = Nz(DMax("Client_Number", "你的表名"), 4000) + 1
          Me.Client_Number = nextClientNum
      End If
  End Sub
  

• 第三步：录入旧客户时，直接在表单里手动输入原有的Client_Number（比如3245），代码只会在字段为空时自动赋值，不会覆盖你手动输入的内容；新增客户时，字段会自动填充从4001开始的连续编号。

额外注意 #

给Client_Number添加唯一索引，这样Access会自动拦截重复值，避免手动输入或自动生成时出现重复编号。

如果你的数据库是多用户同时使用，直接用DMax可能会出现并发冲突（两个人同时取到同一个最大编号），这时候可以用专门的序列表来维护编号，稳定性更高：

• 第一步：新建一个名为NumberSequence的表，包含两个字段：
  • SequenceName：文本类型，设为主键（比如存"ClientNumber"，用来标识这个序列是给客户编号用的）
  • CurrentValue：长整型，用来存储当前最新的编号值
    然后插入一条初始记录：SequenceName="ClientNumber"，CurrentValue=4000（这样下一个自动编号就是4001）。
• 第二步：修改客户表单的BeforeInsert事件代码：

  Private Sub Form_BeforeInsert(Cancel As Integer)
      If IsNull(Me.Client_Number) Then
          Dim db As DAO.Database
          Dim rs As DAO.Recordset
          Set db = CurrentDb()
          
          ' 开启事务，避免多用户同时取号导致重复
          db.BeginTrans
          Set rs = db.OpenRecordset("NumberSequence", dbOpenDynaset, dbSeeChanges)
          rs.FindFirst "SequenceName = 'ClientNumber'"
          
          If Not rs.NoMatch Then
              rs.Edit
              rs!CurrentValue = rs!CurrentValue + 1
              rs.Update
              Me.Client_Number = rs!CurrentValue
          End If
          
          db.CommitTrans
          rs.Close
          Set rs = Nothing
          Set db = Nothing
      End If
  End Sub
  

• 第三步：旧客户录入依然手动输入原编号，新客户会自动从序列表取号并更新序列值，完全避免并发冲突。

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