判断输入重复数据，取消当前记录，然后跳到该重复的数据

查找重复数据及跳转功能已实现：

Private Sub 身份证号_LostFocus()
    If DCount("[身份证号]", "台账", "[身份证号]='" & Me.身份证号 & "'") > 0 Then
        MsgBox "身份证号码重复，" & _
               "请核对是否重复建档！", vbCritical, "警告"
        DoCmd.FindRecord [身份证号]
end sub

但窗体中，除身份证外，还有其他内容，如何在实现数据重定位前，删除前面控件中输入的数据呢？

点击下载此附件