身份证号码？

碧空飞云

个人情况表，身份证号码是唯一的

如何在窗体身份证号字段输入后，自动检测信息是否存在于表中，如果有其他字段自动
调用显示！

andymark

在身份证BeforeUpdate事件输入
If Not IsNull(DLookup("[身份证]", "个人情况表", "[身份证]='" & Me.身份证 & " ' ")) Then
MsgBox "身份证已存在"
Cancel = True
else
endif

唐小小

呵呵，上次看到一个朋友用if count(DLookup("[身份证]", "个人情况表", "[身份证]=" & Me.身份证 & "  ")) <>0 then......

碧空飞云

Private Sub 身份证编号_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String, strTitle As String
    Dim intStyle As Integer

If Not IsNull(DLookup("[身份证编号]", "个人情况表", "[身份证编号]='" & Me.身份证编号 & " ' ")) Then
strMsg = "此身份证号码已存在，请重新检查输入！"
        strTitle = "警告"
        intStyle = vbOKOnly
        MsgBox strMsg, intStyle, strTitle
        Cancel = True
End If
End Sub



根据andymark兄弟的提示，上面这个得到了更好的效果，解决了部分问题。

还有一个请大家帮一下，已有“身份证号码”出现提示后，在窗体中其他的与此身份证号对应的数据怎样才能更新显示出来？

sea.er

requery

碧空飞云

不明白

andymark

DoCmd.OpenForm "个人情况表", , , "身份证编号='" & Me.身份证编号 & " '", acFormEdit

碧空飞云

可以解释一下用法吗？

andymark

当身份证号重复时，打开与此身份证号相应（个人情况表）窗体

碧空飞云

试过了！我是在个人情况表窗体中输入的身份证号码，重复后出现错误，需要调试该语句！

如果我在另一个表的窗体中输入的话，怎样才能将数据调入当前窗体？