Setfocus problem 1

[jpl458]

Using to following code to check the control for 6 characters. if not, then display message and clear the control, and set the focus back to the control. This code is in the Lost Focus event of the control. However, the cursor never goes back to the examined control and remains in the control that is next in the tab sequence on the form. I've tried moving the setfocus after the MsgBox, but to no avail.

'Check for length of 6 Chars
If Len(Card_No) <> 6 Then
Card_No.Value = ""
Me.Card_No.SetFocus
MsgBox "Wrong Number of characters"
Else
End If

Thanks in advance

 

[dhookom]

Try set the focus to another control first and then back to the original control.

Duane
Hook'D on Access
MS Access MVP

 

[jpl458]

Duane, it worked as usual, but is that a bug or is it supposed to be that way?

Thanks again

jpl

 

[dhookom]

It's just the timing of the events.

Duane
Hook'D on Access
MS Access MVP

 

[missinglinq]

Or if you move your code to the OnExit event, you can simply use

Cancel = True

and the focus will remain in the Card_No textbox:

Private Sub Card_No_Exit(Cancel As Integer)
'Check for length of 6 Chars
    If Len(Card_No) <> 6 Then
    Card_No.Value = ""
    Cancel = True
    MsgBox "Wrong Number of characters"
    Else
    End If
End Sub

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!