关于编号问题

灵儿　发表于：2007-10-16 11:43:22 　

关于编号问题

ID(自动编号)　　日期　　　　　　　　　　　编号

　　　１　　　　　２００７-１０-１　　　　　２００７１

　　　２　　　　　２００７-１１-１２　　　　２００７２

　　　１０００　　２００８-１-２　　　　　　２００８１

我想在编号里实现　２００７１　２００７２．．．．．．　２００８１

即编号根据年限从头自动编号，如何作出编号里的数据，请教高手指点．

叶海峰发表于：2007-10-16 12:55:10

=IIf(Left(DLast("领用单号码","领用单明细"),8)=Format(Date(),"yyyymmdd"),DLast("领用单号码","领用单明细")+1,Format(Date(),"yyyymmdd") & 0 & 1)

请参考,用dlast函数得出如果当前记录的"年=上条记录的"年',那么就编号+1,如果<>,就当前记录的编号="年"&1.

王三平发表于：2007-10-16 14:31:36

在UMV平台中用系统自还的函数acchelp_autoid(前缀, 自增序号长度, 表名, 字段名)即可实现.

如：

preF = year(日期)
CodeIp = acchelp_autoid(preF,1,"tblBiao","编号")

a1727 发表于：2007-10-17 09:59:35

    Dim YM As String
    Dim YMold1 As String
    Dim YMold2 As Integer

...

YM = Year(Date)

YMold1 = Left(DLast("[编号]", "tblplant"), 4) '取表中最后一条记录的编号字段的值的前4位用来判断用

YMold2 = Val(Mid(DLast("[编号]", "tblplant"), 5,10))

If CheckRecords("你的表") = True Then

If YM = YMold1 Then '如果系统日期与最后一条记录日期相同,则增加1

Me.[编号] = YM & str(YMold2 + 1)

        Else    '如果不相同,则按新月份从1开始编号
            Me.[编号] = YM & "1"
        End If
Else
      Me.[编号] = YM & "1"
End If

总记录：3篇页次：1/1 9 1 :

Access交流中心