Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

条件

simple  发表于:2010-08-28 13:28:44  
复制

当我选择类别52845时X,Y可以为任何数字;当类别选择52848时X,Y其中一个不可以为0,请教能者如何实现!

点击下载此附件

 

Top
杜 发表于:2010-08-28 14:53:33

在窗体的更新前事件增加提示,至于你想轮入什么,那要看你自己

if Me.类别 = 52848 And Me.数值X = 0 And Me.数值Y = 0 Then MsgBox "数值X,数值Y不能同时为0"



杜 发表于:2010-08-28 14:54:04
类别下接框的更新前事件

马山杨梅 发表于:2010-08-28 15:56:47

窗体的更新前事件中放入如下代码:

If Me.类别 = 52848 And (Me.数值X = 0 Or Me.数值Y = 0) Then
MsgBox "数值x或数值Y其中一个不能为0,请重新输入"
Me.Undo '擦去本条数据
End If

当然前面的判别语句也可以写成:

If Me.类别 = 52848 And Me.数值X * Me.数值Y = 0 Then

 

点击下载此附件

simple 发表于:2010-08-28 21:26:16

楼上的好像不行啊,你做的好像是2个都不能为0,我的意思是2个不能都为零

 

如果我再加2个是X,Y,Z,Q在选择52848时填写数字不能都为零,该怎么写代码???



蒋元根 发表于:2010-08-28 23:28:52

马山杨梅老师做的数据库上面做了修改:

 

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.类别 = 52848 And (Me.数值X = 0 And Me.数值Y = 0) And Me.数值Z = 0 And Me.数值Q = 0 Then


MsgBox "类别选择52848时,数值x、数值Y、数值Z、数值Q不能同时全部为0,请重新输入"
Me.Undo '擦去本条数据
Me.数值X = Null
Me.数值Y = Null
Me.数值Z = Null
Me.数值Q = Null
End If
End Sub


供参考

 

点击下载此附件

simple 发表于:2010-08-29 00:03:40

thanks for u help!



总记录:6篇  页次:1/1 9 1 :