文本框填错后，如何让光标一直停留在原处

时　间:2016-09-04 09:26:13
作　者:杜超   ID：16058  城市：江阴
摘　要:用文本框更新后事件，光标始终都会跳到下个字段，没法停留原处，此时我们可以用另一种方法，如下示例。
正　文:

点击下载此附件

Public Function 检查姓名() As Boolean    '自定义要实现的函数过程，Function本身名字可以返回一个值
    If Me.姓名 = "张三" Then
        MsgBox "姓名不能为张三，否则重填", vbCritical, "提示"
        Me.姓名 = Null
        Me.姓名.SetFocus
        检查姓名 = True
    End If
End Function

Private Sub 地址_GotFocus()
    检查姓名  '调用自定义过程
End Sub

Private Sub 手机号_GotFocus()
    检查姓名  '调用函数过程
End Sub

Private Sub 保存_Click()
    If 检查姓名 Then Exit Sub    '如果检查姓名为真，则退出程序，不执行下面的代码
    MsgBox "保存成功！"
End Sub