请教:如何避免输入重复值

zhuyiwen

请问:1.如何在窗体中捕获主键输入了重复值的错误
     2.如何在窗体中判断输入的值是重复值

qhb

拦截错误啊！不过你最好把不需要重复的值在表设计字段属性中索引设置为“不重复”

zhuyiwen

qhb , 谢谢!

在何处拦截错误?

＂不过你最好把不需要重复的值在表设计字段属性中索引设置为“不重复”＂, 我知道, 主要是要在保存前判断.

tmtony

在form 的error事件中即可截获，错误号是3022

binbow_z

在窗体的控件的BEFORUPDATE事件用代码查找,如果重复,提示错误,再用ME.控件.UNDO取消输入

binbow_z

在窗体的控件的BEFORUPDATE事件中还可用DLOOKUP()查找,如果找到,则提示错误
例码如下,未经调试

1. Private sub Productname_Beforeupdate(cancel as integer)
   
2. if (not isnull(dlookup("[Productname]","Products","[productname]='" _
   
3. & me!productname & "'") )) then
   
4.     msgbox"Product has already been entered in the database"
   
5.     cancel=true
   
6.     me!productname.undo
   
7. endif
   
8. end sub

复制代码

tmtony

我现在也是用binbow_z 这种方法
不过不知道前面的办法效率是否会高一些？

binbow_z

如果不在表中创建指定不重复的话,DLOOKUP应该比采用DAO或ADO打开表后查找要简单得多

zhuyiwen

谢谢各位, binbow_z版主的方法很好, 应该在数据更新进行验证是最合适的, 只不过是多了几行代码.