需要你自己测试一下:
····· If max>bh*1000 '如果这个月有编号了 这里加个判断:max包含bh··· ···· For TT=bh*1000+1 To max+1
·····
r("案件编号")=TT 要判断 max<>TT 时 Exit For End If Next Else r("案件编号")=bh*1000+1 End If
Tables("车辆鉴定").Current.Save() ‘直接在这里保存即可。End If'以下代码在一定程度上防止编号重复 下面的代码没有意义吧