禁止生成以前年度和月份的编号的问题

readandwalk　发表于：2013-08-29 10:28:07 　

有这样一段代码：

Private Sub AutoMxID()
'功能：生成明细编号
    Dim YM As String
    Dim YMold As String
    '使jkid文本框有效，写入数据
    Me.jkid.Enabled = True
    Me.jkid.SetFocus
    '生成编号前缀，格式为DF200701,即年四位,月两位

YM = "QN" & 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开始编号
            Me.jkid = YM & "0001"
        End If
    Else
        '如果表中不存在记录，则生成第一条编号
        Me.jkid = acchelp_autoid(YM, 4, "tbldck", "jkid")
    End If

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

我的问题是---

如何在上面的代码中禁止写入以前年度和月份的数据？
即：
如果现在是201308，但是电脑系统日期是201212，如何禁止写入以前年度和月份的记录？让记录按日期只能向后编写增加。

Top

漏蛧尐魚℡ 发表于：2013-08-29 10:32:31

此编号是按照电脑系统日期来生成的，而且此自动编号函数是被封装了无法修改。

Top

爱好发表于：2013-08-29 11:06:19

楼主的问题是：当电脑的系统日期被改动后，如何能杜绝生成错误的编号。

建议：1、登入时给某个变量一个正确的日期，也就是不取电脑系统日期。代码中的DATE()函数，改成取变量的年和月。

或者2、判断取到的年和月，是否小于以前数据的年和月。

Top

煮江品茶发表于：2013-08-29 11:50:18

取服务器时间

Top

readandwalk 发表于：2013-08-29 17:49:18

谢谢楼上三位！

二楼师兄最接近我的要求，楼主的问题是：当电脑的系统日期被改动后，如何能杜绝生成错误的编号。

我想用您第二个思路解决问题：2、判断取到的年和月，是否小于以前数据的年和月。

我想增加如下语句：

if ym>ymold then '如果取到的系统日期大于表的最后一条记录的日期

Me.jkid = YM & "0001" ‘则生成新记录啊

else ’否则

msbox=“请修改本机系统日期” ‘弹出消息框提示

end if

问题是：

YM 和 YMold这两个String型变量能否直接比较？他们的格式为 QN201308，其中前面的QN固定。

如果不能，该如何比较？

三楼答案也是好办法：只是服务器的时间有时候也会变动。

Top

cspa 发表于：2013-08-29 20:20:45

可用mid函数和字符串转日期函数先将2个字符串转为日期格式再比较。

Top

煮江品茶发表于：2013-08-30 16:09:23

如果服务器和本地机都在时间上胡乱变化的话，就不必采用按日期进行编码的处理方式了，直接用流水号编码即可。编码通常的意义是唯一性的标识一条记录，不必赋予它太多含义。

Top

readandwalk 发表于：2013-08-31 14:31:31

能在具体详细一些吗？

请5楼的老师帮忙写出表达式

Top

爱好发表于：2013-09-02 12:04:01

比较的2个变量是：YM2 = Year(Date) & Format(Month(Date), "00") ； YMold2=right(YMold,6)。试一试。

Top

王三平发表于：2013-09-04 07:53:23

同意6楼观点。

Top

readandwalk 发表于：2013-09-06 17:52:12

Private Sub AutoMxID()
'功能：把文本型转成数值型，然后比较大小。

    Dim YM As String
    Dim YMold As String

    Dim YM1 As String
    Dim YM2 As String

    Dim VYM1 As Integer
    Dim VYM2 As Integer


    YM = "QN" & Year(Date) & Format(Month(Date), "00")

YMold = Left(DLast("[qnid]", "tblqnb"), 8) '取tblqnb表中最后一条记录的qnid字段的值的前8位

    YM1 = Year(Date) & Format(Month(Date), "00")
    YM2 = Mid(YMold(3, 8))

    VYM1 = Value(YM1)
    VYM2 = Value(YM2)

            If VYM2 > VYM1 Then
               MsgBox "系统日期有误，请修改", vbInformation, "提示"
               Me.xm.SetFocus
            Else
               Me.qnid = YM & "0001"
            End If

其中的

YM2 = Mid(YMold(3, 8))

提示有误！

所需类型库或向导不是一个vba工程

Top

zch 发表于：2013-09-07 15:46:07

ym2=mid(ymold,3,8)

Top

cspa 发表于：2013-09-07 20:51:40

没那么复杂吧，把4楼的 If YM > YMold Then 改为：

If format(mid(YM,3,6) ,"yyyymm")>format(mid(YMold,3,6) ,"yyyymm") Then

即可。或：