ACCESS自动生成流水号的问题

假如今天：2001-1-1在插入新纪录时候，自动生成：A2001010101下一条A2001010102在网上搜了一下，看不懂 Private Sub Field1_Enter()
If IsNull(Field1.value) Then
Field1.value = "CN" & Format(CLng(DMax("mid(field1,3,4)", "table1") + 1), "0000") & "-A"
End If
End Sub

就是在字段1进入时运行一下这个代码，如果字段1的值为空的话（NULL），就用“CN”+加上表中已经有字段1中第3个字符开始的4个字符的最大值加1+“-A”组成一个新的值。 组成的值应该是类似 CN0003-A 这样的一个值不过如果是的空表的话，应该是出错的，没有办法在表中取得原的最大值。所以应该手动加入第一条值

支持一下感觉挺不错的