allowSave = False
If DCount("*", "报案人情况表") < 1 Then
Me.案件编号 = Right(Format(Date, "yyyymm"), 6) & 0 & 0 & 0 + 1
Exit Sub
End If
If Me.NewRecord Then
Me.案件编号 = Right(Format(Date, "yyyymm"), 6) & Format(Val(Right(DMax("ajID", "报案人情况表"), 2) + 1), "000")
End If