Office中国论坛/Access中国论坛

标题: 如何自动编号？？请大家帮忙 [打印本页]

作者: jimchen 时间: 2008-6-19 14:45
标题: 如何自动编号？？请大家帮忙
在做一个采购单管理系统，要求主表里面的主键字段，“采购单号”能够自动生成，并且连号的。格式如下：

MT080001

"MT" +"年份“"+序号

1、在表设计是能不能做好？

2、或者在窗体设计时候做好。

请大家帮忙！谢谢

作者: tdhgj 时间: 2008-6-19 17:04
Private Sub 记录ID_Enter()
Me.记录ID = "MT"&Format(Date, "yy") & Format(Nz(DMax("Right(记录ID, 5)", "表名", "left(记录ID,4)='" & Format(Date, "yy") & "'")) + 1, "00000")
End Sub

[ 本帖最后由 tdhgj 于 2008-6-19 17:05 编辑 ]

作者: 阿六爱狗 时间: 2009-4-8 13:55
学习了

作者: dbbygzy 时间: 2009-11-7 14:14
学习了

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