求助，如何根据登记日期自动生成编号
Text1 填写日期（年，月，日）Text2 自动生成编号
db_sjk.mdb 为access数据库
tb_in 为数据表，“登记日期”和“登记编号” 为字段名
要求，在Text1中填写日期，按照年份和月份查询 tb_in 表中“登记日期”下所有相同年月在“登记编号” 中的编号，如果同年同月编号不存在，在Text2自动生成一个“djyyyymm-0001”（dj为字符，yyyymm为年月，-0001为编号）的编号。
如果存在编号，根据Text1填写的日期，提取“登记编号” 下同年同月最大编号然后加1，在Text2自动生成一个新编号。
重点，每年和每月的编号都是从0001开始。
本人是菜鸟，希望大神们写个完整代码以便学习研究，谢谢
