access中[姓名]字段有效性规则的代码实现

本文介绍了一个使用VBA编写的简单程序,该程序用于检查文本框中输入的考生姓名是否符合要求。具体而言,程序会检查姓名长度是否少于两个字符以及是否为中文字符。

 

Private Sub 考生姓名_BeforeUpdate(Cancel As Integer)
    
Dim c1
    c1 
= 考生姓名.Text
    
If Len(LTrim(Trim(c1))) < 2 Then
        
MsgBox ("请输全您的真实姓名。")
    
ElseIf Asc(c1) > 0 And Asc(c1) < 255 Then
        
MsgBox ("请输入中文姓名。")
    
End If
End Sub
 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值