【Access基础扫盲】自增序号函数

来源:教材 点击数:14504 　 | 收藏 | 复制

时　间:2013-08-14 22:35:18
作　者:小赵 ID：30394 城市：兰州
摘　要:自增序号函数
正　文:

在access2010标准模块中：

如下：ZC001，其中抹色部分可自行修改，‘资料信息为表名称，资料号码为自增序号字段名称’

001 可根据1001#来改变大小。如101#-ZC01；1001#-ZC001

Function 资料号码函数()
Dim zdz
zdz = Str(Val(Mid(DMax("资料号码", "资料信息", "资料信息.资料号码 is not null"), 3)) + 1001#)
资料号码函数 = "ZC" & Mid(zdz, 3)
End Function

解析：DMax("资料号码", "资料信息", "资料信息.资料号码 is not null") 函数--

DMax 函数确定指定记录集（即域（域：由表、查询或 SQL 表达式定义的记录集。域聚合函数返回有关特定域或记录集的统计信息。））中的最大值。Mid(DMax("资料号码", "资料信息", "资料信息.资料号码is not null")

Mid函数返回 Variant (String)，其中包含字符串中指定数量的字符。

Str函数返回代表一数值的 Variant (String)。

本示例使用 Str 函数来将一个数字转成字符串。当数字转成字符串时，字符串的第一个位一定是空格或是正负号。

Dim MyString
MyString = Str(459)   '返回" 459"。
MyString = Str(-459.65)   '返回"-459.65"。
MyString = Str(459.001)   '返回" 459.001"。

一个小小的自增序号函数，包含4个函数。具体参见F1。麻雀虽小，五脏俱全呐

Access网店: