自动编号问题

kpsimon · 发表于 2009-8-1 16:53:38

本帖最后由 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

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

styhs · 发表于 2009-8-1 17:08:11

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:46

也不行啊/不会增加去。一值添加都是A0001，不会增加A0002

kpsimon · 发表于 2009-8-2 12:01:22

自已顶先啦

koutx · 发表于 2009-8-2 13:07:09

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

kpsimon · 发表于 2009-8-2 14:59:27

5# koutx

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

koutx · 发表于 2009-8-2 17:07:35

帮你改了一下

kpsimon · 发表于 2009-8-2 20:05:12

问题得到解决。。真的太感谢你了.

kpsimon · 发表于 2009-8-2 21:40:05

7# koutx

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[表] 自动编号问题

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)