此代码是煮江老师的无私奉献，实现了查找现有最大编码，并且是本年度的，如果不是跨年度，则自动加1生成新的编码，如果跨年，原来没有编码或者自动用年度四位数加"001"：

     Maxstr = DMax("案件编号", "案件编号", "案件编号<>'新建案件' And left(案件编号,4)=" & Year(Date)), Year(Date) & "000") + 1