.setfocus not fired with textbox_keydown ?

[ooops]

Hi all,

I tried to use .setfocus with my textbox_keydown but it doesn't work. Any idea why ?

Private Sub txtJurCode_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then

If txtJurCode.Text = "" Then
MsgBox "You must enter a JUR Code.", vbCritical + vbSystemModal
txtJurCode.SetFocus
Exit Sub
End If
end sub

 

[jjames]

Try this...

Private Sub txtJurCode_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then

If txtJurCode.Text = "" Then
KeyCode = 0 'Cancel key down
MsgBox "You must enter a JUR Code.", vbCritical + vbSystemModal
txtJurCode.SetFocus
Exit Sub
End If
end sub

 

[vladk]

Where is second "End If" ?

 

[vladk]

Where is second "End If" ?

And this is better event:

Private Sub Text1_Validate(Cancel As Boolean)
Cancel = Trim$(Text1.Text) = vbNullString
If Cancel Then
MsgBox "You must enter a JUR Code.", vbCritical + vbSystemModal
End If
End Sub

vladk