让系统提示数据不存在请重新，这样的代码怎么写。

苏雨杭　发表于：2011-11-01 08:51:31 　

在数据表中写入目录表中没有的数据时让系统提示数据不存在请重新录入，这样的代码怎么写。

煮江品茶发表于：2011-11-01 12:19:18

用Dcount或者Dlookup函数即可

网行者发表于：2011-11-01 20:49:05

或者将该字段设为主键、或者将该字段索引属性设为“有(无重复)”

振宇发表于：2011-11-01 21:05:58

我的意思是在一个数据表中录入数据时，如果它所对应的目录表中没有相应的数据值，让系统提示缺少相应的目录值，需要增加目录，这样的提示怎么做？？？

网行者发表于：2011-11-01 21:07:10

数据表更新后事件:

If isnull(Dlook("目录表中字段名", "目录表", "目录表中字段名='" & 数据表中字段名 & "'")) Then
MsgBox "你输入的数据不存在，请重新录入！", vbCritical, "警告"

me.undo
Exit Sub
End If

网行者发表于：2011-11-01 21:08:43

If isnull(Dlookup("目录表中字段名", "目录表", "目录表中字段名='" & 数据表中字段名 & "'")) Then
MsgBox "你输入的数据不存在，请先录入目录表！", vbCritical, "提醒"

me.undo
Exit Sub
End If

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

Access交流中心