帮我看看,这段代码有什么问题

royyao

Private Sub Ctl201032A_BeforeUpdate(Cancel As Integer)

If DCount("*", "对照表", "[编号]=Forms![窗体名]![控件名]") = 0 Then

Else

    If DCount("*", "表名", "[字段名]=Forms![窗体名]![控件名]") <> 0 Then

    Else

    MsgBox "请输入不重复围数据，或按Esc键撤消！"

    End If

MsgBox "请输入编号范围内数据，或按Esc键撤消！"

End If

End Sub

我是要做两件事：一是在窗体上的文本框里输入的数据是要在对照表里字段（编号）里存在的。二是在窗体上的文本框里输入的数据不能和输入进表里字段里的数据重复的。但我现在这样做了，在输入错误的数据时只是提示，而数据还是进入表里的。

上面两句Count("*", "对照表", "[编号]=Forms![窗体名]![控件名]") = 0和DCount("*", "表名", "[字段名]=Forms![窗体名]![控件名]") <> 0我在宏里能通过的

zyp

加上一句：cancel=true即可