Office中国论坛/Access中国论坛

标题: 自动编号问题 [打印本页]

作者: kpsimon 时间: 2009-8-1 16:53
标题: 自动编号问题
本帖最后由 kpsimon 于 2009-8-2 12:01 编辑

在字段的默认值输入如下
="QB" & Format(Date(),"yy") & Format(Nz(DMax("Right(ID, 4)","表1","mid(ID,3,2)='" & Format(Date(),"yy") & "'"))+1,"0000")

显示：QB090001  添加后QB090002

现在就是想把系统日期去掉只显示如下:
="QB"  Format(Nz(DMax("Right(ID, 4)","表1","mid(ID,3,2)='" & Format("") & "'"))+1,"0000")
显示：BQ0001  但添加后只会BQ0001  不会BQ0002

为什么呢》？怎么把日期去掉，又能增号呢?
帮忙看看谢谢

[attach]39096[/attach]

作者: styhs 时间: 2009-8-1 17:08
rivate Sub 编码_DblClick(Cancel As Integer)
IF IsNull(Me.编码) Then
Me.编码="A0001"
ELSE
Me.编码="A" & Format(Val(Right(Me.编码,4))+1,"0000")
End IF
End Sub

作者: kpsimon 时间: 2009-8-1 17:37
也不行啊/不会增加去。一值添加都是A0001，不会增加A0002

作者: kpsimon 时间: 2009-8-2 12:01
自已顶先啦

作者: koutx 时间: 2009-8-2 13:07
那就将你添加后能正确显示的第一种方法按:
=Left(你的算式,2) & Right(你的算式,4)
试试。这是最不费脑劲的办法。

作者: kpsimon 时间: 2009-8-2 14:59
5# koutx

不太明白你的意思，你能上传个例子吗?

作者: koutx 时间: 2009-8-2 17:07
帮你改了一下
[attach]39098[/attach]

作者: kpsimon 时间: 2009-8-2 20:05
问题得到解决。。真的太感谢你了.

作者: kpsimon 时间: 2009-8-2 21:40
7# koutx

再一次感谢你,帮我大忙了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)