Preventing incorrect data entry

[Big Lar]

I need to prevent users from entering incorrect values.
Everything works except SetFocus.
Any suggestions?

Private Sub TextBox2_AfterUpdate()
CheckBox3.Value = True

If (Me.TextBox2.Value) <= (Me.TextBox1.Value) Then

MsgBox "Value Cannot Be Less Than 1st Flight", vbCritical
TextBox2.Value = ""
TextBox2.SetFocus

Exit Sub
Else

Label3 = TextBox2.Value + 1 & " To:"
End If

End Sub

 

[Jaafar Tribak]

Assuming you are working with Userform1 try adding an ontime routine in a new Standard Module like this :

Sub SetFocusBack(ByVal TextBoxName As String)
    UserForm1.TextBox2.SetFocus
End Sub

And then change your original code to this :

Private Sub TextBox2_AfterUpdate()

    CheckBox3.Value = True
    If (Me.TextBox2.Value) <= (Me.TextBox1.Value) Then
        [B][COLOR=#0000ff]Application.OnTime Now, "'SetFocusBack ""TextBox2""'"[/COLOR][/B]
        MsgBox "Value Cannot Be Less Than 1st Flight", vbCritical
        TextBox2.Value = ""
        Exit Sub
    Else
        Label3 = TextBox2.Value + 1 & " To:"
    End If

End Sub

 

[JLGWhiz]

Maybe

Me.TextBox2.SetFocus[COLOR=#ff0000]
[/COLOR]

 

[Big Lar]

Thanks, Jaafar Tribak.
That works!

 

[Big Lar]

Maybe

Me.TextBox2.SetFocus[COLOR=#ff0000]
[/COLOR]

JLGWhiz,
Thanks for the suggestion. I tried that yesterday and it failed to resolve the issue.
Oddly, it works on other procedures in my project. (Confused)