编程论坛 → VB6论坛

求助，如何根据登记日期自动生成编号

时间旅行者发布于 2017-07-12 20:47， 3870 次点击

Text1  填写日期（年，月，日）
Text2  自动生成编号
db_sjk.mdb  为access数据库
tb_in  为数据表，“登记日期”和“登记编号” 为字段名

要求，在Text1中填写日期，按照年份和月份查询  tb_in 表中“登记日期”下所有相同年月在“登记编号” 中的编号，如果同年同月编号不存在，在Text2自动生成一个“djyyyymm-0001”（dj为字符，yyyymm为年月，-0001为编号）的编号。

如果存在编号，根据Text1填写的日期，提取“登记编号” 下同年同月最大编号然后加1，在Text2自动生成一个新编号。

重点，每年和每月的编号都是从0001开始。

本人是菜鸟，希望大神们写个完整代码以便学习研究，谢谢

7 回复

#2

ZHRXJR2017-07-12 23:30

只有本站会员才能查看附件，请登录

应该是你需要的，完全按你的意图做的。

只有本站会员才能查看附件，请登录

#3

时间旅行者2017-07-13 10:34

谢谢版主，这正是我所需要的，由于我要应用在自己设计的一个工程中，您制作成的是应用程序，是否可以把代代码告知？谢谢

#4

时间旅行者2017-07-13 10:46

回复 2楼 ZHRXJR

谢谢版主，这正是我所需要的，由于我要应用在自己设计的一个工程中，您制作成的是应用程序，是否可以把代代码告知？谢谢

#5

ZHRXJR2017-07-13 11:41

联系我发给你。

#6

时间旅行者2017-07-16 00:29

回复 5楼 ZHRXJR

你好老师，我的邮箱liu0958@,谢谢

#7

zz10707248252018-05-07 15:48

回复 6楼时间旅行者

嘿，哥们，这部分代码能发给我看看吗？

#8

PAPAPA62018-06-06 11:09

你好老师，我的邮箱1030890744@,谢谢老师

1