主题：狐爸帮忙啊

需要你自己测试一下：

     ·····
    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
'以下代码在一定程度上防止编号重复  下面的代码没有意义吧