Focus change takes several seconds

[georgesOne]

Hi,

I have a form with a few textboxes having events as shown below.

Private Sub tbxUserCell_Change()
If tbxUserCell.text Like "###-###-####" Then
bFree = True
cboDepartment.SetFocus
End If
End Sub

For unknown reasons, it takes a few seconds until cboDepartment gets the focus and lets me edit this field. I can not detect any loops or call repeats in the code. Form and controls are unbound.
I understand there is a conflict between the Change event of this control and the SetFocus command. But I don't know how else I can achieve that after a certain formatted entry the next control receives focus.
Any comment?

Thanks, Georges

 

[TheAceMan1]

How are ya georgesOne . . .

Use an [blue]Input Mask[/blue] instead!. For a phone number it would look like:

[blue]!(999) 000-0000;;_[/blue]

Any attempt to change focus without fulfilling the mask is aborted.

To read about Input Mask, in the table select the field, then put the cursor on the Input Mask line and hit F1.

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[georgesOne]

Thanks, Aceman1.

Actually I have set the input mask like !999\-000\-0000;;_

However,after editing the 10 digit number, the focus would not move to the next field.

I came up with a solution though.
I have put the following code into the Key_Up event and it seems to work bautifully:

Private Sub tbxUserPhone_KeyUp(KeyCode As Integer, Shift As Integer)

If tbxUserPhone.text Like "###-###-####" Then
bFree = True
tbxUserCell.SetFocus
End If
End Sub

Thanks for your help.
Kind regrds, georgesOne