[5分]生成明细编号，要能控制编号月份不能在已有月份之前

恳请各位老师、学友解答：

代码日期编号控制的问题：

有这样一段代码

Private Sub AutoMxID()
'功能：生成明细编号，控制编号不能生成以前月份的
    Dim YM As String
    Dim YMold As String
    '使jkid文本框有效，写入数据
    Me.jkid.Enabled = True
    Me.jkid.SetFocus
    '生成编号前缀，格式为DF200701,即年四位,月两位
    YM = "DF" & Year(Date) & Format(Month(Date), "00")
    If CheckRecords("tbldck") = True Then    'checkRecords函数说明见平台帮助第十二章
        '如果表中存在记录,则去取得表最后一条记录的年月
        YMold = Left(DLast("[jkid]", "tbldck"), 8)    '取tbldck表中最后一条记录的jkid字段的值的前8位
        If YM = YMold Then    '如果系统月份与最后一条记录月份相同,则增加1
            Me.jkid = acchelp_autoid(YM, 4, "tbldck", "jkid ")    'acchelp_autoid函数说明见平台帮助第十二章"
        Else    '如果不相同,则按新月份从1开始编号
        
            If Mid(YM, 3, 6) < Mid(YMold, 3, 6) Then
               MsgBox "系统日期有误，请修改", vbInformation, "提示"
               Me.bz.SetFocus
            Else
                     Me.jkid = YM & "0001"
            End If
        
                  
        End If
    Else
        '如果表中不存在记录，则生成第一条编号
        Me.jkid = acchelp_autoid(YM, 4, "tbldck", "jkid")
    End If


    '让xm文本框获得焦点
    Me.xm.SetFocus
    '使用jkid文本框无效，以防止操作员误修改数据
    Me.jkid.Enabled = False
End Sub

-----------------------------------------------------------------------------------------------------------分割线

        代码中红色部分不能够起到作用。红色部分的作用是阻止以前月份的记录被增加上去：比如最后一条记录是DF2014081234,那么即使现在的系统日期是20120808.也不能够增加一条编码为2012080001的记录。

     实际运行中红色代码起不到应有的作用，2012年的代码也被增加上了？！

    恳请老师解答？

谢谢