ACCESS中有效果文本能根据有效性规则显示不同的提示吗?

发布网友发布时间：2024-10-22 18:53

共1个回答

热心网友时间：2024-11-06 02:27

您好，有两种方法可以实现：
1）建立两个“文本输入”，一个比如是“TextBox1”，另一个是“TextBox2”。当用户在输入奖金时，TextBox2 的“Control Source”的内容可以输入
=IIF(TextBox1<1000,"太少",IIF(TextBox2>2000,"太多","有效"))
2）另一个方法就是使用 VBA 编码功能。在 TextBox1 的属性中，找到“AfterUpdate”，然后选择“Expression Builder”，然后 VBA 编码框会弹出来。显示：
Private Sub TextBox1_AfterUpdate()
End Sub
在这两行中间加入：
If IsNull(Me.TextBox1.Value) Or Me.TextBox1.Value = "" Then
Me.Label1.Caption = "请输入值。"
ElseIf Not IsNumeric(Me.TextBox1.Value) Then
Me.Label1.Caption = "请输入数字。"
ElseIf Me.TextBox1.Value < 1000 Then
Me.Label1.Caption = "奖金太少了。"
ElseIf Me.TextBox1.Value > 2000 Then
Me.Label1.Caption = "奖金太多了。"
Else
Me.Label1.Caption = "奖金有效。"
End If
希望这样的解析可以帮到您。