Not leaving text box

[Jan Nordgreen]

I use Access 2003 on WinXP.

I use a text box to search for a member id. When it finds it, the
record pointer moves and the new record is displayed and the text box
is selected for me to type in a new id. That is OK.

When the id is not found, when I press Enter the next text box in the
tab order gets the focus. That is not OK. How do I let the current
text box keep the focus so I can type in a new id?

Private Sub txtSearch_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MemberID] = " & Str(Nz(Me![txtSearch], 0))
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
End If
End Sub

Regards,

Jan Nordgreen

--
My sites:
sharealink (favourite links) -
http://simpler-solutions.net/shareal..._main.php?id=1
jan's diary - http://simpler-solutions.net/pmachinefree/weblog.php
think again (seductive math problems for the modern mind) -
http://simpler-solutions.net/pmachin...thinkagain.php
mumnet (mathematical ulterior motives) - http://mumnet.tripod.com
free learning of mathematics (free online journal) -
http://simpler-solutions.net/pmachin...om.php?id=P206
modern times (tools for better schools) -
http://simpler-solutions.net/pmachin...oderntimes.php
miscajitas - http://miscajitas.tripod.com
photos from the Dominican Republic - http://janparasiempre.tripod.com
photos from Grand Cayman - http://janandcayman.tripod.com
simpler solutions (educational software) -
http://simpler-solutions.net
freedom to learn (resources for learning) -
http://freedomtolearn.tripod.com
http://jansgames0.tripod.com
http://janscv.tripod.com

[Allen Browne]

Put your search text box into the Form Header section.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Jan Nordgreen" <ja**********@gmail.com> wrote in message
news:36**************************@posting.google.c om...

I use Access 2003 on WinXP.

I use a text box to search for a member id. When it finds it, the
record pointer moves and the new record is displayed and the text box
is selected for me to type in a new id. That is OK.

When the id is not found, when I press Enter the next text box in the
tab order gets the focus. That is not OK. How do I let the current
text box keep the focus so I can type in a new id?

Private Sub txtSearch_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MemberID] = " & Str(Nz(Me![txtSearch], 0))
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
End If
End Sub

[Jan Nordgreen]

Thank you for your answer.

I tried it. As far as I can see the only effect it had was that the
AfterUpdate code didn't run, so it didn't solve my problem.

Regards,

Jan Nordgreen

[Dannic]

ja**********@gmail.com (Jan Nordgreen) wrote in message news:<36**************************@posting.google. com>...

I use Access 2003 on WinXP.

I use a text box to search for a member id. When it finds it, the
record pointer moves and the new record is displayed and the text box
is selected for me to type in a new id. That is OK.

When the id is not found, when I press Enter the next text box in the
tab order gets the focus. That is not OK. How do I let the current
text box keep the focus so I can type in a new id?

Private Sub txtSearch_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[MemberID] = " & Str(Nz(Me![txtSearch], 0))
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
End If
End Sub

Regards,

Jan Nordgreen

You can always set the focus at the end of this sub back to the text
box you use for searching.

Me![txtSearch].SetFocus

[Allen Browne]

By default, Access cycles through the controls in the section. If the text
box is the only one in the Form Header section, then the focus stays in that
box - unless you programmatically move it elsewhere or something else forces
a change of focus.

If the code did not run, right-click the control in design view, and choose
Properties. Chances are the:
[Event Procedure]
needs to be restored to the After Update property after you moved the
control to a different section.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Jan Nordgreen" <ja**********@gmail.com> wrote in message
news:36**************************@posting.google.c om...

Thank you for your answer.

I tried it. As far as I can see the only effect it had was that the
AfterUpdate code didn't run, so it didn't solve my problem.

Regards,

Jan Nordgreen

[Jan Nordgreen]

You were right. I had to reassign it and then it worked like a dream,
i.e. as you described. :)

Thanks for educating me!

[Jan Nordgreen]

To add the setfocus instruction at the end of the afterupdate method
did not change anything. When the record is not found the focus is
given to the next control.