[求助]代码重复判断

liuweisunjing · 发表于 2007-3-14 23:14:00

根据"产品"表,做了一个"产品"窗体.设置"产品代码"为主键.通过ADO添加记录.现在的问题是:如果产品代码重复,希望有一个msgbox的提示框,而不是ACCESS自身的报错.判断代码是否重复的代码该怎么写.研究好几天了没有结果.求助各位大侠帮帮我.谢谢了.

一点通 · 发表于 2007-3-14 23:50:00

If DLookup("[产品代码]", "产品", "[产品代码]='" & [产品代码] & "'") <> "" Then

msgbox .............

liuweisunjing · 发表于 2007-3-15 00:12:00

一点通大哥,提示错误码3464.说是"标准表达式中数据类型不匹配".

一点通 · 发表于 2007-3-15 00:28:00

如果产品代码是数字格式的改为这样

If DLookup("[产品代码]", "产品", "[产品代码]=" & [产品代码]) <> "" Then

liuweisunjing · 发表于 2007-3-15 18:32:00

问题已经解决.感谢一点通大哥.

liuweisunjing · 发表于 2007-3-16 06:30:00

一点通大哥,能不能解释一下代码最后的“ <>"" ”，是什么意思？？

我想根据这段代码，改成如果不存在相同代码，则提示。试了很多遍了，因为不知道<>"" 是什么意思,所以一直没成功.望大哥指点....

一点通 · 发表于 2007-3-16 06:47:00

不是空，也就是有对应的数据

liuweisunjing · 发表于 2007-3-16 07:12:00

急疯我了.

您帮我看看这段代码错哪了行吗?我想实现的效果是:如果产品代码不存在,则提示.....

If DLookup("产品代码", "产品", "产品代码 <> '" & Forms!产品!产品代码查询 & "'") <> "" Then
MsgBox

一点通 · 发表于 2007-3-16 07:23:00

文本格式

If DLookup("[产品代码]", "产品", "[产品代码]='" & Forms!产品!产品代码查询 & "'") = "" Then
MsgBox

数字格式

If DLookup("[产品代码]", "产品", "[产品代码]=" & Forms!产品!产品代码查询) = "" Then
MsgBox

liuweisunjing · 发表于 2007-3-16 09:05:00

没起作用.上传了附件,您帮我看看.如果您方便,看我那个删除产品代码,查询写的是不是有问题?多谢了.

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] [求助]代码重复判断

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)