Question

我需要在Access 2016中生成语句编号。这些数字需要长度为5位，如果语句编号小于5位，我需要用前导零填充数字。

作为起点，第一个语句编号不会被填充。因此，如果最后一个语句号是96，则下一个语句号必须是00097。

是否有可能（我假设在VBA中）可以满足两种情况的需要，即数字长度为5位数或者数字较少的情况。

我在考虑首先从最后一个语句号（如果存在）中删除前导零，将剩余数字递增1，然后添加前导零以使数字5的长度，但我不确定最有效的方法。

Answer 1

如果它具有前导零，则它不是数字，而是字符串。但是，只要它没有太大差别，这样的工作就可以了：

var object = $(<div>我</div>，<div>喜欢</div>，<div>吃</div>);

这就是您在即时窗口中获得的内容：

Sub TestMe()
    Dim cnt         As Long
    Dim myString    As String
    For cnt = 98 To 120
        myString = Format(cnt, "00000")
        Debug.Print myString
    Next cnt
End Sub

Answer 2

是的，只需先转换为数字：

NextValue = Format(Val(CurrentValue) + 1, "00000")

Answer 3

你也可以使用：

NextStateStr = Right("00000" & LastStateNum + 1, 5)

增加5位数字，包括前导零

3 个答案: