Office中国论坛/Access中国论坛

标题: 身份证号码？ [打印本页]

作者: 碧空飞云 时间: 2003-10-27 18:10
标题: 身份证号码？
个人情况表，身份证号码是唯一的

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

作者: andymark 时间: 2003-10-27 18:25
在身份证BeforeUpdate事件输入
If Not IsNull(DLookup("[身份证]", "个人情况表", "[身份证]='" & Me.身份证 & " ' ")) Then
MsgBox "身份证已存在"
Cancel = True
else
endif

作者: 唐小小 时间: 2003-10-27 18:33
呵呵，上次看到一个朋友用if count(DLookup("[身份证]", "个人情况表", "[身份证]=" & Me.身份证 & " ")) <>0 then......

作者: 碧空飞云 时间: 2003-11-3 23:14
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 时间: 2003-11-3 23:20
requery

作者: 碧空飞云 时间: 2003-11-4 01:18
不明白

作者: andymark 时间: 2003-11-4 03:14

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

作者: 碧空飞云 时间: 2003-11-6 01:21
可以解释一下用法吗？

作者: andymark 时间: 2003-11-6 05:22
当身份证号重复时，打开与此身份证号相应（个人情况表）窗体

作者: 碧空飞云 时间: 2003-11-6 17:03
试过了！我是在个人情况表窗体中输入的身份证号码，重复后出现错误，需要调试该语句！

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

作者: zhengjialon 时间: 2003-12-2 22:28
用ADO打开另一个记录集，将值写到当前窗体里就行了。

作者: 碧空飞云 时间: 2003-12-26 00:09
详细说明一下可以吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)