如何在access2007数据库中用VBA实现在窗体中自动生成年份+编号?

数据库里有一个表,只有两个字段,主键ID(长整型数字)和“订单名称”(文本),利用这两个字段创建一个窗体,其中ID文本框设置为不可用,在添加新纪录的情况下,在“订单名称”文本框输入文字时,“ID”文本框位置自动生成新的编号,该编号符合如下特点(当前表中已经有一条记录20140001):
1、如果当前的最大编号的左四位(left(date(yyyy)))=当前年份,则新编号=最大编号+1;
2、如果当前的最大编号的左四位(left(date(yyyy)))=(当前年份-1),则新编号=四位年份&“0001”;
如果当前的最大编号的左四位(left(date(yyyy))?)大于 当前年份 or 小于等于(当前年份-2),则mxgbox(请检查您的计算机系统日期);

本人能力实在有限,怎么也不成功,就不把具体代码发上来献丑了,请大侠们帮我写一段代码吧?
说白了,就是按年份自动生成8位编号,要求在窗体中生成。

第1个回答  2014-02-16
你的窗体任务可以实现