ACCSE 数据库里面自动编号问题

发布网友发布时间：2022-10-24 02:08

共2个回答

热心网友时间：2024-11-23 10:56

单纯的用ACCESS自动编号操作是不可能达到你要的效果的，我这里有些代码：
实现对字符型编号自动加1。
AutoNum('SZ001')
显示为：SZ002
AutoNum('001')
显示为：002

AutoNum函数的定义如下：
Function AutoNum(strNum As String) As String
AutoNum = StrReverse(Val(StrReverse(strNum & "1")))
AutoNum = Left(AutoNum, Len(AutoNum) - 1)
AutoNum = Left(strNum, Len(strNum) - Len(AutoNum)) & Format((AutoNum + 1), String(Len(AutoNum), "0"))
End Function

相关函数的解释：
StrReverse：字符串取反

Val：字符串转数值，取字符串左边数字，包括空格

Left：取字符串左边指定个数的子字符串，对应的还有Right,Mid

Len：返回字符串长度

Format：格式化字符串，这里是返回带前导0的数值

String：返回重复指定个数的字符的字符串，类似的有Space函数

热心网友时间：2024-11-23 10:57

加一个索引排序字段，
SZ+自动编号的ID 赋值给这个字段