在窗体输入身份证号码后，如何确定是否存在相同的身份证号码？

在窗体，“身份证号码”文本框，“更新后”事件写入以下语句：Private Sub 身份证号码_AfterUpdate()

If Nz([身份证号码]) = Nz(DLookup("[身份证号码]", "数据源", "[身份证号码]=" & "'" & 身份证号码 & "'")) Then

    MsgBox "录入的数值重复，请重新输入！", , "提示……"

    Me.Undo

End If

End Sub

或者：

If DCount("[身份证号码]", "数据源", "[身份证号码]=" & "'" & 身份证号码 & "'") >0 Then

    MsgBox "录入的数值重复，请重新输入！", , "提示……"

    Me.Undo

End If

End Sub

两个都试试！