TxtBox SetFocus无法正确聚焦，用户名文本框验证后跳转异常问题

看起来你遇到的核心问题是：AfterUpdate事件触发后，系统默认会将焦点移到下一个控件，导致你手动设置的焦点被覆盖。咱们来一步步解决这个问题：

为什么原来的代码不行？ #

AfterUpdate事件是在控件内容已经更新、且焦点即将离开控件时触发的。这时候就算你调用txt_Name.SetFocus，系统已经预先安排好要跳转到下一个控件了，所以你的焦点设置会被覆盖，达不到预期效果。

正确的解决方案：改用BeforeUpdate事件 #

BeforeUpdate是在控件内容更新之前触发的，它允许你通过Cancel参数取消更新操作，从而让焦点牢牢留在当前控件里。这才是做输入验证的正确时机。

给你调整后的代码：

Private Sub txt_Name_BeforeUpdate(Cancel As Integer)
    Dim username As String
    username = UCase(Me.txt_Name.Value)
    
    ' 验证是否包含"."
    If InStr(1, username, ".", vbTextCompare) = 0 Then
        MsgBox "用户名格式错误，请输入 firstname.lastname 格式。", vbExclamation, "格式验证失败"
        Cancel = True ' 取消更新，焦点留在当前TextBox
        
        ' 可选：选中全部文本，方便用户直接修改
        Me.txt_Name.SelStart = 0
        Me.txt_Name.SelLength = Len(Me.txt_Name.Value)
    Else
        ' 格式正确，将输入转为大写后赋值
        Me.txt_Name.Value = username
    End If
End Sub

关键细节说明 #

• Cancel = True：这行是核心，它告诉VBA宿主程序不要完成本次控件更新，焦点会自动留在txt_Name里。
• 大写转换放在验证之后：避免用户输入小写时，还没验证就先转大写，影响体验。
• 选中全部文本：这是个小优化，让用户不用手动选内容，直接输入新值就行。

如果你因为某些原因一定要用AfterUpdate事件，也可以试试在提示后调用txt_Name.SetFocus，同时在下一个控件的Enter事件里判断验证状态并取消进入，但这种方式会更繁琐，远不如BeforeUpdate来得直接可靠。

内容的提问来源于stack exchange，提问作者jrussin