输入地址后用MsgBox显示自动生成的最新文件编号问题

你的问题根源在于：FileNum记录集是在插入新地址前就打开的，此时它的数据集不包含刚添加的那条记录，所以调用.MoveLast只会定位到插入前的最后一条记录。以下是两种可行的解决方案：

方案一：复用记录集并刷新数据 #

Private Sub Command39_Click()
    Dim dbsFileGen As DAO.Database
    Dim rsFileGen As DAO.Recordset
    Dim newAddress As String
    Dim latestFileNum As Integer

    Set dbsFileGen = CurrentDb
    Set rsFileGen = dbsFileGen.OpenRecordset("dbo_File_Generator", dbOpenDynaset, dbSeeChanges)

    newAddress = InputBox("Please enter the building address.")
    ' 空输入判断，避免插入无效记录
    If newAddress = "" Then Exit Sub

    ' 添加新记录
    rsFileGen.AddNew
    rsFileGen!Address = newAddress
    rsFileGen.Update

    ' 刷新记录集，确保包含刚插入的新数据
    rsFileGen.Requery
    ' 定位到最新记录
    rsFileGen.MoveLast
    latestFileNum = rsFileGen!File_Number

    ' 弹出最新编号
    MsgBox "最新生成的文件编号为：" & latestFileNum, vbInformation, "提示"

    ' 释放资源
    rsFileGen.Close
    Set rsFileGen = Nothing
    Set dbsFileGen = Nothing
End Sub

关键改进点 #

• 移除冗余的FileNum记录集，用单个记录集完成所有操作
• 增加空输入判断，防止插入空地址的无效记录
• 通过Requery刷新记录集，确保加载刚插入的新数据
• 刷新后执行MoveLast即可正确获取最新自动编号
• 添加对象释放代码，避免内存泄漏

方案二：用DMax直接查询最大编号（更简洁高效） #

Private Sub Command39_Click()
    Dim newAddress As String
    Dim latestFileNum As Integer

    newAddress = InputBox("Please enter the building address.")
    If newAddress = "" Then Exit Sub

    ' 执行插入，用Replace处理地址中的单引号，避免SQL语法错误
    CurrentDb.Execute "INSERT INTO dbo_File_Generator (Address) VALUES ('" & Replace(newAddress, "'", "''") & "')", dbFailOnError

    ' 直接查询表中最大的File_Number，Nz处理表为空的情况
    latestFileNum = Nz(DMax("File_Number", "dbo_File_Generator"), 0)

    MsgBox "最新生成的文件编号为：" & latestFileNum, vbInformation, "提示"
End Sub

方案优势 #

• 无需操作记录集，代码更精简
• 用DMax直接获取最新编号，跳过记录集刷新步骤
• Replace处理特殊字符，避免SQL注入或语法错误
• Nz函数兼容表为空的初始场景，防止报错

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