关于DLOOKUP使用，这里哪里有错吗？

jacken

这是数据库中的代码：

If DLookup("链接字段", "典型村情况调查表", "链接字段 = Forms!典型村调查!链接字段") Is Not Null Then

     MsgBox ("乡镇名为“" + Me.乡镇 + "”、村名为“" + Me.村名 + "”、填表日期为“" + Str(Me.填表日期) + "”的记录已经存在，请重新输入不重复的值！")

     Me.Undo

     Me.乡镇.SetFocus

     End If

哪里有错呀！说明：链接字段为关键的字段值，不能为空，也不能重复，我用DLOOKUP查找不重，但执行时就是说出错。请大家帮忙！

执行典型村调查这个窗体，然后只要这三个字段值完成一样就会出现。谢谢大家！！

wuyuanhui

If DLookup("[链接字段]", "典型村情况调查表", "[链接字段] = Forms!典型村调查!链接字段") Is Not Null Then

Trynew

is not null 改为 not IsNull(),is not null 只能用在查询里，另外要注意条件的引用：

     If not IsNull(DLookup("链接字段", "典型村情况调查表", "链接字段 ='" &  Forms!典型村调查!链接字段 & "'")) Then

[此贴子已经被作者于2004-12-29 13:15:48编辑过]

jacken

那请问在查询中不重复是如何编码呢？谢谢楼上二位。