利用窗体录入数据时如何避免重复录入

dd　发表于：2015-07-15 16:39:53 　

有三个字段：工号部门月份

我需要实现的是，当新增的一条记录与已有记录完全重复是，提示有重复无法输入！

我希望用代码解决！请大师帮提供一个实例跪谢！

施巍巍发表于：2015-07-15 20:45:11

用这个语句，

DLookup("字段名称" , "表或查询名称" , "条件字段名1 = " & Forms!窗体名!控件名1 _

& " AND 条件字段名2 = '" & Forms!窗体名!控件名2 & "'" _
& " AND 条件字段名3 =#" & Forms!窗体名!控件名3 & "#")

大概这样写

if len(nz(dlookup()))=0 then

msgbox("记录重复，请重新确认！", vbExclamation + vbYes, "警告")

end sub

end if

我也是小菜鸟，你试试看是不是有用？

易勋发表于：2015-07-16 13:48:58

if DCount("*","表名","工号="& me.工号（数字类型的字段） &" AND 部门='"& me.部门（文本型的字段） &"' AND 月份=#"& me.月份（日期型字段） &"#")>0 then

msgbox "记录已存在！"

exit sub

end if

dd 发表于：2015-07-18 10:14:34

字段都是文本型的，我用了后提示类型不匹配。这段代码加在保存事件里面还是？谢谢

易勋发表于：2015-08-01 20:18:43

if DCount("*","表名","工号='"& me.工号（数字类型的字段） &"' AND 部门='"& me.部门（文本型的字段） &"' AND 月份=#"& me.月份（日期型字段） &"#")>0 then

msgbox "记录已存在！"

exit sub

end if

写在保存事件里面最前面

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

Access交流中心