Office中国论坛/Access中国论坛

标题: 帮我看看,这段代码有什么问题 [打印本页]

作者: royyao 时间: 2005-10-7 05:27
标题: 帮我看看,这段代码有什么问题
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 时间: 2005-10-7 07:12
加上一句：cancel=true即可

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