防止输入重复字段的代码如何写？

glihong919

把“计算书编号”定为主键，我想实现这样的功能，当输入“计算书编号”后，一旦重复，则提示我“计算书编号重复，请重新输入”，这样的代码怎样写？请教高手。

一点通

<>if not isnull(dlookup("计算书编号","表名","[计算书编号]=" &amp; 计算书编号)) then  MsgBox "计算书编号重复,请重新输入"</P>
<>   </P>

glihong919

<>我在失去焦点里按您的内容写入，但编译错误，不知怎么回事？如下：</P>
<>rivate Sub 计算书编号_LostFocus()</P>
<P>If Not IsNull(DLookup("计算书编号", "计算书主窗体表", "[计算书编号]=" &amp; 计算书编号)) Then MsgBox "计算书编号重复,请重新输入"<BR>End Sub</P>

一点通

<>如果计算书编号是文本格式,应改写为</P>
<>If Not IsNull(DLookup("计算书编号", "计算书主窗体表", "[计算书编号]='" &amp; 计算书编号 &amp; "'")) Then MsgBox "计算书编号重复,请重新输入"<BR></P>

glihong919

<>已经可以了，谢谢一点通老师。</P>

glihong919

<>现在有这样的问题，我把上述的代码写入它下边的另外一个字段（厂房名称）获得焦点处，现在无论何时只要我击到“厂房名称”此字段，就弹出"计算书编号重复,请重新输入" ，能否实现输入完“计算书编号”内容一回车，再弹出"计算书编号重复,请重新输入"的信息。<BR></P>

一点通

要写在文本框的更新事件中

glihong919

<FONT face="" size=4>怎么写在更新前后都不行呢？我要实现：按下“新增”按钮后，增加“计算书编号”，回车后，只要录入过“计算书编号”（因为计算书有很多），就提示我重复了，就不往下录入了，因为后面还要很多内容要录入。</FONT>