Access VBA获取指定学校最后证书号并自动递增填充表单问题

需求背景 #

需要实现数据录入表单中Certificate_No（证书编号）的自动生成规则：基于当前选择的School（学校编号），取该学校已使用的最后一个证书编号，递增1生成新编号。

现有SQL语句 #

用户有一条在查询中可正常运行的SQL语句，用于获取指定学校的最后一个证书编号：

sSQL = "SELECT TOP 1 Exam.School, Exam.Certificate_No as LN FROM Exam WHERE Exam.School = S ORDER BY Exam.Certificate_No DESC;"

VBA代码执行报错问题 #

但在以下VBA代码中执行Set rs = CurrentDb.OpenRecordset(sSQL)时持续报错，无法读取最后编号：

Dim db As DAO.Database
    Set db = CurrentDb()
  Dim rs As DAO.Recordset
  Set rs = CurrentDb.OpenRecordset(sSQL)
      sSQL = "SELECT TOP 1 Exam.School, Exam.Certificate_No as LN FROM Exam WHERE Exam.School = S ORDER BY Exam.Certificate_No DESC;"  

注：代码存在明显顺序错误——先执行了打开记录集的操作，之后才给sSQL变量赋值，导致OpenRecordset调用时sSQL未正确初始化，这是报错的核心原因。

AfterUpdate事件的复用疑问 #

用户已通过AfterUpdate事件实现了日期自动复制到下一条记录，代码如下：

Private Sub Exam_Date_AfterUpdate()
Me.Exam_Date.DefaultValue = """" & Me.Exam_Date.Value & """"
End Sub

询问该事件是否可用于实现证书编号的自动递增功能。

补充信息 #

• 证书编号格式为字符串：学校编号-5位数字，例如100-12345
• 可通过Right函数提取编号后5位，转为整数加1后重新组合成新编号，但目前无法自动实现该流程
• 手动输入编号后，仅能让下一条记录实现递增，后续记录无法自动处理
• 用户已在另一问题中找到可行解决方案

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