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

 

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