文本框保持获得焦点问题

wenq0917

Private Sub test_LostFocus()
    Dim strTest As String
    strTest = Me.test.Text
               
    If Len(strTest & vbNullString) = 0 Then
        MsgBox "Test 不能为空"
        Me.test.SetFocus
        
    End If
            
End Sub

当test控件为空并失去焦点时,可以弹出"Test 不能为空"的提示框

但是窗体当前的焦点已经不在test控件上了,这是怎么回事?

谢谢

andymark

strTest = Me.test

去掉TEXT属性

wenq0917

没用

一点通

先将焦点移动别的控件上,然后再回到自身控件