Office中国论坛/Access中国论坛

标题: 防止输入重复字段的代码如何写？ [打印本页]

作者: glihong919 时间: 2007-7-18 19:49
标题: 防止输入重复字段的代码如何写？
把“计算书编号”定为主键，我想实现这样的功能，当输入“计算书编号”后，一旦重复，则提示我“计算书编号重复，请重新输入”，这样的代码怎样写？请教高手。

作者: 一点通 时间: 2007-7-18 20:12
<

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

>

作者: glihong919 时间: 2007-7-18 20:33
<

>我在失去焦点里按您的内容写入，但编译错误，不知怎么回事？如下：
<

rivate Sub 计算书编号_LostFocus()
If Not IsNull(DLookup("计算书编号", "计算书主窗体表", "[计算书编号]=" & 计算书编号)) Then MsgBox "计算书编号重复,请重新输入" End Sub

作者: 一点通 时间: 2007-7-18 21:09
<

>如果计算书编号是文本格式,应改写为
<

>If Not IsNull(DLookup("计算书编号", "计算书主窗体表", "[计算书编号]='" & 计算书编号 & "'")) Then MsgBox "计算书编号重复,请重新输入"

作者: glihong919 时间: 2007-7-19 00:18
<

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

作者: glihong919 时间: 2007-7-19 20:39
<

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

作者: 一点通 时间: 2007-7-19 21:40
要写在文本框的更新事件中

作者: glihong919 时间: 2007-7-19 22:55
怎么写在更新前后都不行呢？我要实现：按下“新增”按钮后，增加“计算书编号”，回车后，只要录入过“计算书编号”（因为计算书有很多），就提示我重复了，就不往下录入了，因为后面还要很多内容要录入。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)