输入数值小于0有提示

苏雨杭　发表于：2012-10-15 13:20:35 　

输入-100或0提示不可以输入，输入100没提示

有神助发表于：2012-10-15 16:05:44

控件的更新事件中,用宏或VBA代码轻松实现,不详述.

有神助发表于：2012-10-15 16:14:21

在控件的更改事件中,用事件过程,输入以下语句:(假设控件名称为零件数量)

Private Sub 零件数量_Change()
If Me.零件数量 < 0 Then
MsgBox "数量不能为负数,请重新输入!", vbCritical, "提示"
Me.零件数量 = Null
Me.零件数量.SetFocus

End Sub

有神助发表于：2012-10-15 16:24:35

end sub前漏了一句 end if

振宇发表于：2012-10-15 16:28:04

这样是不对的，我原来就是这样写的。

叶海峰发表于：2012-10-15 16:51:20

文本框属性,数据-有效性规则,有效性文本

振宇发表于：2012-10-15 17:20:13

这样是不可以写有效性

沈军发表于：2012-10-16 09:27:04

在你需要输入数值的文本控件更新后事件中增加下列代码： if 数值控件名称>=-100 and 数值控件名称<=0 then msgbox"超出数值输入范围，需重新输入" 数值控件名称=null end if

小易发表于：2012-10-16 11:15:49

要不你就传个例子上来,这样大家都不知道错在哪呀^

煮江品茶发表于：2012-10-16 20:13:13

海峰同志解答为正解

ynfsr 发表于：2012-10-27 13:29:16

5楼正解

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

Access交流中心