录入窗体身份证号不得重复

欧阳空竹　发表于：2010-09-02 14:55:31 　

公司员工入职记录中不能出现相同的身份证号，当数据库中有一个身份证号之后，在录入窗体再次输入后拒绝录入该身份证号的语句怎么写。谢谢。（不要在表中设置唯一的那个方法）

大肚秃秃发表于：2010-09-02 16:01:56

    Dim STemp, Temp As String
           STemp = DLookup("ID", "表名", "[身份证号]= '" & Me.Text10 & "'")
        If IsNull(STemp) = False Then
            MsgBox "该身份证号已存在！", vbCritical, "提示"
            Exit Sub
        End If

其中:Me.Text10 是窗体中输入的身份证号

建议:由于身份证号的长度有二种表示方法:15 位或18位

最好对输入的身份证号的长度进行判定,如是15位,一律转为18位,这样表中的身份证长度一致.

Top

wang decheng 发表于：2010-09-02 16:04:47

我的做法是，在下一个文本框获得焦点事件加入如下语句：

If Not IsNull(DLookup("[身份证号]", "员工入职记录", "[身份证号] = '" & Me.身份证号 & "'")) Then
    MsgBox "该身份证号已存在!请重新输入"
    Me.身份证号.SetFocus
    End If

Top

wang decheng 发表于：2010-09-02 16:06:51

撞车了不好意思，没有看到大肚老师的回复。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

录入窗体身份证号不得重复