旧的平台中编号不能自动新增

凌云　发表于：2013-01-03 17:47:04 　

我设计的系统在上个月之前用的自动编号没问题，但是跨年后我的自动编号停留在1号不会自动新增，寻求老师解决！

下面为自动编号的代码：

Private Sub AutoMxID()
    Dim YM As String
    Dim YMold As String
       Me.srid.Enabled = True
    YM = "SR" & Year(Date) & Format(Month(Date), "00")

If CheckRecords("tblscsr") = True Then

YMold = Left(DLast("[srid]", "tblscsr"), 8)

If YM = YMold Then

Me.srid = acchelp_autoid(YM, 4, "tblscsr", "srid")

Else

            Me.srid = YM & "0001"
        End If
    Else
               Me.srid = acchelp_autoid(YM, 4, "tblscsr", "srid")
    End If

Me.khmc.SetFocus
Me.srid.Enabled = False
End Sub

Top

漏蛧尐魚℡ 发表于：2013-01-03 19:38:31

换这个试试吧http://www.accessoft.com/article-show.asp?id=5501

Top

dbaseIIIer 发表于：2013-01-04 03:14:11

你这个格式绝对可以用这个不用if 的方法解决：（但这方法不是通用的！）

ym = "SR" & Format( Now(), "YYYYMM")

yma = split( "0" & Nz(DMax( "[srid]", "tblscsr"),""), ym)

Me.srid = ym & format( 1+val(yma(ubound(yma))),"0000")

或者，如果 srid 是有建立索引的话，数据也不允许被删除的话，对于一个月一千几百张单的应用是没有什么问题的：

ym = "SR" & Format( Now(), "YYYYMM")

me.srid = ym & format( 1+DCount( [srid],"tblscsr","[srid] like '" & ym & "*'"), "0000")

Top

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

Access交流中心

[5分]旧的平台中编号不能自动新增