新增一条记录时使用Right让字段的数字部分自动加1

请朋友根据以下内容做个例子呀!

新增一条记录时使用Right及DMax函数让字段的数字部分自动加1

答：使用Right及DMax函数返回字段“FOO”的数字部分的最大值，然后加1

表达式为：

="REC-" & right(DMax("FOO", "FOOTable"), _

Len(DMax("FOO", "FOOTable")) - _

InStr(1, DMax("FOO", "FOOTable"), "-")) + 1

注意：但如果很多用户或多个程序都使用DMax去实现这个结果的话，特别在一个很大的表中这个过程会很慢，所以建议使用DefaultValue，它仅仅使用DMax一次

程序如下，写在更新事件中

Private Sub SomeField_AfterUpdate()

Dim strMax as string

strMax =DMax("FOO", "FOOTable")

me!HiddenFooCtl = "REC-" & right(strMax, len(strMax) - Instr(1,strMax, "-")) +1

End Sub