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