固定自动编号数量，然后检测断号，再自动编号

风的承诺　发表于：2020-12-01 09:51:39 　

复制

点击下载此附件

麻烦那位老师，帮忙处理解决一下，谢谢！

要求：编号从001开始自动编号，每个编号为23个，当相同自动编号达到23个后，自动编号新增为下一个自动编号！

例：从001开始，当001编号编满23个时，自动编号开始编号为002，再编满23个时再往后自动延续........，要自动检测每个编号有没有编足23个，可以自动断号续号

编号条码

001 123

001 65456

001 32135

001 8998

编号满足23个时，自动编号到002，依此类推！

这个可能有点小难度，望路过的老师看到了，搞抬贵手解决一下，感谢！

Top

风的承诺发表于：2020-12-02 10:52:30

各位老师，请帮忙解决指导，感谢！

Top

vious 发表于：2020-12-31 09:30:37

Public Function getID() As String
Dim i As Integer
i = 1
Do Until 0
If DCount("编号", "表1", "编号='" & Format(i, "000") & "'") < 23 Then
getID = Format(i, "000")
Exit Function
Else
i = i + 1
End If
Loop
End Function

Top

西出阳关无故人发表于：2020-12-31 12:00:07

点击下载此附件

参考

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

固定自动编号数量，然后检测断号，再自动编号