如何判断表中的两个字段，如果有相同的记录值，则返回不可添加

吹冷风　发表于：2013-03-11 16:27:30 　

复制

窗体在输入数据时，如果2个文本框中输入的内容，和该2个文本框中的对应的表中的字段值相同时，则判断为有重复数据，不可输入，该如何做呢，例如如下的部门和周别字段，如果在窗体中添加数据时，

添加完毕后，判断表中是否存在相同内容，如果存在则提示数据重复。求高手答复。

Top

殷小宝发表于：2013-03-11 17:46:44

if dlookup("*","表1","部门='" & Me.部门 &"' and 周别='"& Me.周别 & "'")>0 then

msgbox "该记录重复,请重新输入",vbokonly,"提示"

exit sub

me.部门.setfocus

end if

Top

陈连峰发表于：2013-03-12 17:01:46

你好，小宝

按您说的代码，我运行时提示“运行时错误3075，语法错误(操作符丢失)在查询表达式‘*’中，帮检查下是哪的错误，个人能力实在有限，谢谢！！！

Top

殷小宝发表于：2013-03-12 20:30:07

“周别”为文本型还是数值型，上面是按文本型处理的，如果是数字型则这样写：
if dlookup("*","表1","部门='" & Me.部门 &"' and 周别="& Me.周别 )>0 then

Top

陈连峰发表于：2013-03-13 09:01:54

If DLookup("*", "TXXZSXB0", "CHZYBM='" & Me.CHZYBM & "' and CHJHZB='" & Me.CHJHZB & "'") > 0 Then
MsgBox "该记录重复,请重新输入", vbOKOnly, "提示"
End If

是字符型的，我这样写的，您看下对不对

Top

陈连峰发表于：2013-03-13 10:03:35

已经好了，我把**底色的字段，由 * 改成了CHJHZB，就可以了，谢谢了。

If DLookup("CHJHZB", "TXXZSXB0", "CHZYBM='" & Me.CHZYBM & "' and CHJHZB='" & Me.CHJHZB & "'") > 0 Then
MsgBox "本周已输入过工作计划,如需添加或修改，请至修改页面操作，或添加其他周别计划。", vbOKOnly, "提示"
End If

Top

殷小宝发表于：2013-03-13 16:36:27

你说的对，这点马虎了，dlookup用于查找特定字段的，上面的如用可改为dcount,dcount函数可以用“*”。

Top

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

Access交流中心

如何判断表中的两个字段，如果有相同的记录值，则返回不可添加