Office中国论坛/Access中国论坛

标题: 做一报告单,自定义自动编号实现不了,如何解决? [打印本页]

作者: xxxwk 时间: 2008-1-2 10:08
标题: 做一报告单,自定义自动编号实现不了,如何解决?
窗体上检验号要实现自动编号的模式为: yyyymmdd0001 , 后四位累加.
请说得明白一些,前面我问过二次,高手的回答我都没看懂,不好意思.我是VB菜鸟.
附上要改的东东,能帮我修改好更好,谢了.

不知我说明白没.

作者: xxxwk 时间: 2008-1-2 10:29
自顶一下

作者: tmtony 时间: 2008-1-2 10:53
将检验号字段由自动编码改为文本
然后在窗体的插入前事件加如下代码

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim intMaxNo As Integer
intMaxNo = Val(Right(Nz(DMax("检验号", "检验主表", "检验号 like '" & Format(Date, "yyyymmdd") & "*'")), 4))
Me.检验号.Value = Format(Date, "yyyymmdd") & Format(intMaxNo + 1, "0000")

End Sub

作者: xxxwk 时间: 2008-1-2 11:04
谢谢,试试看,搞不懂再请教你

作者: xxxwk 时间: 2008-1-2 12:19
[已解决!!!]非常感谢老大给我的方法.再谢!!

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