Access增加内容的时候判断是否有重复

aniushu

老师这段代码，我想增加一个判断，就是我点击按钮增加的时候判断是否有重复项。如何实现？

  

子程序名	返回值类型	公开	备 注
_按钮_增加_被单击

判断 (编辑框_名称.内容 ≠ “” 且 编辑框_产地.内容 ≠ “” 且 编辑框_年份.内容 ≠ “” 且 编辑框_类别.内容 ≠ “” 且 编辑框_净重.内容 ≠ “” 且 编辑框_包装规格.内容 ≠ “” 且 编辑框_零售指导价.内容 ≠ “”)
判断循环首 ()
' 判断是否有重复的名字。
判断循环尾 ()
信息框 (“有一个框你还没填写内容！”, 48, , )
记录集1.添加 ()
记录集1.写文本 (“产品名称”, 编辑框_名称.内容)
记录集1.写文本 (“产地”, 编辑框_产地.内容)
记录集1.写文本 (“年份”, 编辑框_年份.内容)
记录集1.写文本 (“类别”, 编辑框_类别.内容)
记录集1.写文本 (“净重”, 编辑框_净重.内容)
记录集1.写文本 (“包装规格”, 编辑框_包装规格.内容)
记录集1.写文本 (“零售指导价”, 编辑框_零售指导价.内容)
记录集1.更新 ()

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> .子程序 _按钮_增加_被单击<br /> <br /> <br /> .判断开始 (编辑框_名称.内容 ≠ “” 且 编辑框_产地.内容 ≠ “” 且 编辑框_年份.内容 ≠ “” 且 编辑框_类别.内容 ≠ “” 且 编辑框_净重.内容 ≠ “” 且 编辑框_包装规格.内容 ≠ “” 且 编辑框_零售指导价.内容 ≠ “”)<br />     .判断循环首 ()<br />         ' 判断是否有重复的名字。<br />     .判断循环尾 ()<br /> .默认<br />     信息框 (“有一个框你还没填写内容！”, 48, , )<br /> .判断结束<br /> 记录集1.添加 ()<br /> 记录集1.写文本 (“产品名称”, 编辑框_名称.内容)<br /> 记录集1.写文本 (“产地”, 编辑框_产地.内容)<br /> 记录集1.写文本 (“年份”, 编辑框_年份.内容)<br /> 记录集1.写文本 (“类别”, 编辑框_类别.内容)<br /> 记录集1.写文本 (“净重”, 编辑框_净重.内容)<br /> 记录集1.写文本 (“包装规格”, 编辑框_包装规格.内容)<br /> 记录集1.写文本 (“零售指导价”, 编辑框_零售指导价.内容)<br /> 记录集1.更新 ()

伊银

  

如果真 (记录集1.查找 (“产品名称='”＋编辑框_名称.内容＋“'”, #正向搜索 ))
信息框 (“产品名称重复”, 0, )

.版本 2<br /> <br /> .如果真 (记录集1.查找 (“产品名称='”＋编辑框_名称.内容＋“'”, #正向搜索))<br />     信息框 (“产品名称重复”, 0, )

寒潮