Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

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

风的承诺  发表于:2020-12-01 19:17:51  
复制

麻烦那位老师,帮忙处理解决一下,谢谢!

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

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

编号       条码

001       123

001       65456

001       32135

001       8998

编号满足23个时,自动编号到002,依此类推!

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

点击下载此附件

 

Top
风的承诺 发表于:2020-12-02 10:40:02
各位老师,请帮忙 解决指导,感谢!

chinasa 发表于:2020-12-03 08:25:42

点击下载此附件


看看是不是你想要的。



风的承诺 发表于:2020-12-03 09:43:35

感谢解惑,初学ACCESS中,我修改了一下,当没有最大值时,默认值为001,非常感谢!

有没用不用查询的方法,直接用VBA来写的最更好!



chinasa 发表于:2020-12-03 10:10:10

原理是一样的,只不过把查询写成代码。

对于初学者,建议还是用查询吧,查询向导本身就是ACCESS很好的一个工具。



风的承诺 发表于:2020-12-03 10:54:21

老师:还有一个问题,就是当一条记录没有时,报错,

   If maxID = IsNull Then
      ID = "001"
   ElseIf countID > 5 Then
        ID = Val(maxID) + 1
   Else
        ID = Val(maxID)
   End If
会报ID是无效NULL,帮忙再指导一下!



风的承诺 发表于:2020-12-03 13:07:09
己解决,谢谢!

总记录:6篇  页次:1/1 9 1 :