Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

递增一个字符串中的数字部分

1970-1-1 08:00| 发布者: Dev Ashish| 查看: 2172| 评论: 0

tmtony翻译：

问：我有一个字段，包含这样的格式："REC-1", "REC-2", "REC-3" 等. 当新增一条记录时，我如何让这个字段的数字部分自动加1呢（下一条记录应为REC-4)

答：使用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

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

递增一个字符串中的数字部分

最新评论

相关分类