[5分]求助一个对表格内容进行批量按规则编号后追加进另外一个表的问题

Sub aa()
    Dim RST As DAO.Recordset
    Dim MaxID As String    '表中的最大编号
    Dim strDay As String    '表中的日期
    Dim strToday As String    '系统日期
    Dim MaxNum As Long    '表中的最大序号
    '原理:
    '1.首先判断tblgrjcjl有没有当天的记录,如果有,就获得最大序号,如果没有,就从1开始编号
    MaxID = DMax("[Id]", "tblgrjcjl")    '表中的最大编号
    strDay = Mid(MaxID, 3, 8)
    strToday = Format(Date, "YYYYMMDD")
    Set RST = CurrentDb.OpenRecordset("tblqsgrjcjl_temp", dbOpenDynaset)
    If strDay = strToday Then    '说明tblgrjcjl有当天的记录,接着当天的记录号继续往下编号
        MaxNum = Val(Right(MaxID, 4)) + 1
    Else    '说明tblgrjcjl没有当天的记录编号,从1开始编号
        MaxNum = 1
    End If
    RST.MoveFirst
    Do Until RST.EOF
        RST.Edit
        RST("Id") = "GR" & strDay & Format(MaxNum, "0000")
        MaxNum = MaxNum + 1
        RST.Update
        RST.MoveNext
    Loop
    RST.Close
    Set RST = Nothing
    MsgBox "编号已结束"
End Sub