文本框失去焦点时的问题？在线等

Question

请看以下代码，我想在text1失去焦点是做校检，当不合条件时，单击命令按钮command1时则不能执行相关代码，但当执行text2.setfocus后，下面的令行不被执行，请问怎么解决？dim a as boolean
Private Sub Command1_Click()
    Text2.SetFocus
    Debug.Print "eeeeeeee"
    debug.print a
    if a=true then exit sub
    ......
    ......End SubPrivate Sub Text1_LostFocus()
    If IsNumeric(Text1.Text) = False Then
        a=true
        Text1.SetFocus
    End If
End Sub

Answer 1

最先的问题是，我单击工具栏的按钮不触发文本框的lostfocus事件，怎样才能先触发后执特按钮事件？