acce 如何用代码在“默认值”里实现自动编号？单据流水号生成问题。

文章作者 100test 发表时间 2007:09:06 11:39:31
来源 100Test.Com百考试题网

问题：

　　如何用代码在“默认值”里实现自动编号？单据流水号生成问题。

　　如何用代码在“默认值”里实现自动编号？
　　如果我想实现不同类型的自动编号，我应该怎么设置代码呢？
　　如：第1号、第2号、...........、第198号..................
　　或：CN0001-A、CN0002-B、CN0003-B、.........、CN0004-A、CN1998-B……
　　是在默认值里输入代码呢，还是在什么地方，请指教，谢谢！

　　回答：

　　这些要求都不需要在“表”的字段属性中完成，一般都是在界面编程中解决的。

　　用 dcount() 或者 DMAX() 函数取值后用字符串组合的方法得到编号

　　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

　　当然，知道原理以后你一定要用更改表的“默认值”的方法来实现也未尝不可，但个人觉得没必要。