对窗体Test上文本框控件txtAge中输人的学生年龄数据进行验证。要求:该文本框中只接受大于等于15且小于等于30的数值数据,若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下,请在空白处填入适当的语句,使程序可以完成指定的功能。
Private Sub txtAge_BeforeUpdate(Cancel As Integer)
If Me!txtAge=" "Or (14) (Me!txtAge)Then
’数据为空时的验证
MegBox"年龄不能为空!",vbCritical,"警告"
Cancel=Ture ’取消BeforeUpdate事件
Else If IsNumeric(Me!txtAge)=False Then
’非数值数据输入的验证
MsgBox"年龄必须输入数值数据!",vbCritical,"警告"
Cancel=True ’取消BeforeUpdate事件
Else If Me!txtAge<15 Or Me! txtAge (15) Then
’非法范围数据输入的验证
MsgBox"年龄为15-30范围数据!",vbCritical,"警告"
Cancel=True
Else
MsgBox"数据验证OK!",vblnformation,"通告"
End If
End Sub