MS Access表单自动填充下一条记录序号+1的实现咨询

要实现同一上下文编号下序号自动递增、上下文变更时序号重置为001的需求，需要针对特定上下文查询最大序号，而非全局取最大后三位。以下是具体实现步骤和代码：

核心思路 #

1. 拆分目录编号：将1XX11.001格式的文本按小数点分割为上下文编号（如1XX11）和三位序号（如001）。
2. 定向查询最大序号：仅在相同上下文的记录中查找最大序号，避免全局取值导致的序号错误。
3. 自动填充与修正：新记录默认继承上一条的上下文并递增序号；手动修改上下文后，自动重置序号为该上下文的下一个可用值。

代码实现 #

假设表单绑定表为TABLE_1，目录编号文本框名为txtCatalogNumber，在表单的两个事件中添加代码：

1. 新记录自动填充（BeforeInsert事件） #

在表单的BeforeInsert事件中编写代码，新建记录时自动生成符合规则的目录编号：

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim lastContext As String
    Dim maxSeq As Integer
    Dim newSeq As String
    
    ' 表中有记录时，继承上一条的上下文并生成递增序号
    If DCount("*", "TABLE_1") > 0 Then
        ' 获取最后一条记录的上下文编号
        lastContext = Split(DLast("CATALOG_NUMBER", "TABLE_1"), ".")(0)
        ' 查询该上下文下的最大序号（转为数值后比较）
        maxSeq = Nz(DMax("Val(Right([CATALOG_NUMBER], 3))", "TABLE_1", "[CATALOG_NUMBER] Like '" & lastContext & ".%'"), 0)
        ' 格式化为三位文本序号
        newSeq = Format(maxSeq + 1, "000")
        Me.txtCatalogNumber = lastContext & "." & newSeq
    Else
        ' 表为空时设置初始值（可根据需求修改）
        Me.txtCatalogNumber = "1XX11.001"
    End If
End Sub

2. 手动修改上下文后自动修正序号（AfterUpdate事件） #

在文本框txtCatalogNumber的AfterUpdate事件中添加代码，确保用户修改上下文后，序号自动匹配该上下文的下一个可用值：

Private Sub txtCatalogNumber_AfterUpdate()
    Dim currentValue As String
    Dim parts() As String
    Dim currentContext As String
    Dim maxSeq As Integer
    Dim newSeq As String
    
    currentValue = Me.txtCatalogNumber
    ' 验证格式是否包含小数点
    parts = Split(currentValue, ".")
    If UBound(parts) = 1 Then
        currentContext = parts(0)
        ' 查询当前上下文的最大序号
        maxSeq = Nz(DMax("Val(Right([CATALOG_NUMBER], 3))", "TABLE_1", "[CATALOG_NUMBER] Like '" & currentContext & ".%'"), 0)
        ' 生成下一个序号并格式化
        newSeq = Format(maxSeq + 1, "000")
        Me.txtCatalogNumber = currentContext & "." & newSeq
    End If
End Sub

关键说明 #

• Split函数：灵活分割目录编号，适配任意长度的上下文编号（无需固定前五位）。
• Val(Right(...))：将三位文本序号转为数值，确保DMax能正确比较大小（例如009转为9，010转为10，避免文本比较时009大于010的错误）。
• Format(..., "000")：将递增后的数值转为三位文本，保证序号格式统一（如1→001，10→010）。
• 条件查询Like '" & lastContext & ".%'：仅查询相同上下文的记录，确保序号在上下文变更时重置。

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