做一报告单,自定义自动编号实现不了,如何解决?

xxxwk

窗体上检验号要实现自动编号的模式为: yyyymmdd0001 , 后四位累加.
请说得明白一些,前面我问过二次,高手的回答我都没看懂,不好意思.我是VB菜鸟.
附上要改的东东,能帮我修改好更好,谢了.

不知我说明白没.

xxxwk

自顶一下 :L

tmtony

将检验号字段 由 自动编码 改为 文本
然后在窗体的插入前事件 加如下代码

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

谢谢,试试看,搞不懂再请教你

xxxwk

[已解决!!!]非常感谢老大给我的方法.再谢!!