Wrong textbox gets focus.

[2D Rick]

This code does not return focus to Me.txtDiskSerailNumber, it moves it
to the next textbox in the tab order. How can I force it to setfocus
where I want it.

Private Sub txtDiskSerailNumber_AfterUpdate()
If Len(Me.txtDiskSerailNumber) <> 8 And Len(Me.txtDiskSerailNumber)
<> 12 Then
MsgBox "Bad Serial Number ""Length""", vbCritical, "Input
Error"
Me.txtDiskSerailNumber.SetFocus
Exit Sub
End If
End Sub

Thanks, Rick

[accesspro4u]

>>This code does not return focus to Me.txtDiskSerailNumber, it moves it

to the next textbox in the tab order. How can I force it to setfocus
where I want it. Private Sub txtDiskSerailNumber_AfterUpdate()
If Len(Me.txtDiskSerailNumber) <> 8 And Len(Me.txtDiskSerailNumber)
<> 12 Then
MsgBox "Bad Serial Number ""Length""", vbCritical, "Input
Error"
Me.txtDiskSerailNumber.SetFocus
Exit Sub
End If
End Sub
Thanks, Rick

It may be helpful to move your validation code to the BeforeUpdate
event.
Then you can 'Cancel' the update if the data is invalid. This will
keep the
focus in that text field, so the user can re-enter data.
For an example see:
http://www.blueclaw-db.com/access_ev...foreupdate.htm

HTH,
Mark
*****************@aol.com

[Wayne Morgan]

Mark is correct, do the validation in the BeforeUpdate event. The problem
isn't that the code isn't moving the focus to txtDiskSerialNumber (serial is
misspelled), it's that it is doing this before Access moves the focus
because you tabbed out of the control, so the tab to the next control is
still taking effect, but after the code runs. Issuing the Cancel in the
BeforeUpdate if the validation fails will solve this problem. You won't need
the SetFocus statement.

--
Wayne Morgan
MS Access MVP
"2D Rick" <rb*******@compuserve.com> wrote in message
news:11*********************@o13g2000cwo.googlegro ups.com...

This code does not return focus to Me.txtDiskSerailNumber, it moves it
to the next textbox in the tab order. How can I force it to setfocus
where I want it.

Private Sub txtDiskSerailNumber_AfterUpdate()
If Len(Me.txtDiskSerailNumber) <> 8 And Len(Me.txtDiskSerailNumber)
<> 12 Then
MsgBox "Bad Serial Number ""Length""", vbCritical, "Input
Error"
Me.txtDiskSerailNumber.SetFocus
Exit Sub
End If
End Sub

Thanks, Rick

[2D Rick]

Thanks for the two replies to my message.
All works perfect now.

<< txtDiskSerialNumber (serial is misspelled) >>

Still working through issues from "Hooked on Phonics" and "New Math"
<g>

Thanks, Rick

[Wayne Morgan]

That's fine. As long as the misspelling is consistent, Access doesn't know
the difference.

--
Wayne Morgan
MS Access MVP
"2D Rick" <rb*******@compuserve.com> wrote in message
news:11**********************@z14g2000cwz.googlegr oups.com...

<< txtDiskSerialNumber (serial is misspelled) >>

Still working through issues from "Hooked on Phonics" and "New Math"
<g>

Thanks, Rick