字段内容重复问题

直来直往　发表于：2007-11-28 13:01:43 　

复制

定义了一个表，其中一个字段为“名称”，由窗体输入名称时，不允许名称重复，用代码怎么实现？

Top

马丽发表于：2007-11-28 13:08:51

可以用两种方法实现：

一是在该字段的afterupdate事件中用语句判断，

if acchelp_strdataisexist("表名","字段名",me.名称)=true then

msgbox "已经存在"

me.名称.setfocus

me.名称=null

end if

Top

马丽发表于：2007-11-28 13:10:50

二是把该字段的索引设为不可重复，然后在窗体的保存事件中用捕获错误的方法。

Top

直来直往发表于：2007-11-28 13:15:57

acchelp_strdataisexist函数未定义啊？

没有这个函数怎么办呢？

第二种方法的代码怎么实现呢？

Top

竹笛发表于：2007-11-28 14:01:13

楼主没有使用ACCESS开发平台,因此他的数据库中没有这个函数.

Top

马丽发表于：2007-11-28 14:55:56

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conDuplicateKey = 3022
    Dim strMsg As String
    If DataErr = conDuplicateKey Then
        Response = acDataErrContinue
        strMsg = "名称不允许重复，" _
               & "请重新输入名称！"
               Me.名称.SetFocus
        MsgBox strMsg, vbCritical, "提示"
    End If
End Sub
以面就是捕获错误的方法

Top

直来直往发表于：2007-11-28 20:02:00

多谢tigermali！

我在窗体属性的错误中添加该段代码为什么还是不行呢？

汗！

是不是哪里用的不对啊？

请指点！

Top

直来直往发表于：2007-11-28 23:05:29

问题解决了，与大家共享：

　　　　If Me.文本框名称 = Nz(DLookup("字段名称", "表名称", "字段名称='" & Me.文本框名称 & "'")) Then
        　MsgBox "工具箱名称有重复,请重新输入", vbInformation, "提示"
        　Exit Sub
        End If

参照DLookup函数用法。

谢谢各位！

Top

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

Access交流中心

字段内容重复问题