|
这些要求都不需要在“表”的字段属性中完成,一般都是在界面编程中解决的。
用 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 |
当然,知道原理以后你一定要用更改表的“默认值”的方法来实现也未尝不可,但个人觉得没必要。
|