普及版教程中新增窗体中同名同姓如何处理录入问题

吕生　发表于：2007-11-03 22:07:37 　

普及版教程中新增窗体中同名同姓如何处理？因我司同名同姓较多，只是证件号不同，如何处理保存和关闭功能帖子被bamboo修改于2007-11-3 22:16:32

竹笛发表于：2007-11-03 22:21:31

'假定表名称为tbl员工表,姓名字段的名称为emName,则:

If Acchelp_StrDataIsExist("tbl员工表", "emName", Me.emName) = True Then
MsgBox "该姓名已存在！", vbCritical, "提示"
Me.emName.SetFocus

'退出子程序
Exit Sub
End If

Top

吕生发表于：2007-11-03 22:24:49

thanks

Top

沈斌发表于：2007-11-05 08:22:31

我觉得应该是:

'假定表名称为tbl员工表,姓名字段的名称为emName,证件号字段的名称为zjID,则:

If Acchelp_StrDataIsExist("tbl员工表", "emName", Me.emName) = True and Acchelp_StrDataIsExist("tbl员工表", "zjID", Me.zjID) = True Then
MsgBox "该姓名已存在！", vbCritical, "提示"
Me.emName.SetFocus

'退出子程序
Exit Sub
End If

Top

黠子发表于：2007-11-19 18:59:36

没能解决

Top

麥田发表于：2007-12-08 09:17:54

输入张三① 张三②来区别吧

Top

刘贵平发表于：2007-12-08 19:07:11

前段时间，有网友问我，如何在平台以外的数据库中判断数据重复输入。其实可以利用Dlookup这个函数来实现。代码如下：
表名称：tbpwzjc;字段名：wzid,主键.wzmc——物资名称。Wzsh－物资型号

If (Not IsNull(DLookup("[wzid]", _
        "tblwzjc", "[wzmc] ='" _
        & Me![wzmc] & "'"))) Then
        MsgBox "此记录已录入"
     Me.rq.SetFocus
     Exit Sub

End If

假如物资名称相同时，不提出提示框，而是物资名称和物资型号完全一样时，才需要出现提示框。这时候也可以用这个函数来实现！代码如下！
If (Not IsNull(DLookup("[wzid]", _
        "tblwzjc", "[wzmc]+[wzsh] ='" _
        & Me![wzmc] + [wzsh] & "'"))) Then
        MsgBox "此记录已录入"
     Me.rq.SetFocus
     Exit Sub

    End

Top

刘贵平发表于：2007-12-08 19:09:33

可以用我第二个代码来实现这个功能 !如果名字相同,证号不相同时不会出现提示框,如果名字和证号相同时才会提出提示框

Top

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

Access交流中心

普及版教程中新增窗体中同名同姓如何处理录入问题