Retaining focus

[jimleon]

To select a field to search i normally get focus on that field and hit CTRL+F, this works fine. I am in the process of stream lining this with a search button. I use a command button that runs a macro that runs RunCommand - Find.
The problem i find is that hitting the command button changes focus from the desired field in the Look In part of the search form. Is there any way of preventing this happening or setting focus to field that was active prior to hitting the button?

[PEB]

Hi this can be done using custom defined menu bar with your respective command

or by using visual basic...

In the After Update event procedure assign to a variable for the form which was the last control

Clicking on the bouton you can move the focus like this

Me!MyControl.SetFocus

So tell us what way do you want to follow?

[jimleon]

Hi this can be done using custom defined menu bar with your respective command

or by using visual basic...

In the After Update event procedure assign to a variable for the form which was the last control

Clicking on the bouton you can move the focus like this

Me!MyControl.SetFocus

So tell us what way do you want to follow?

I will be using vba to solve this one, but first a few more questions.
I understand about changing the focus and how it is achieved, but to what do I apply the After Update procedure? The button?

[missinglinq]

The problem with using Me!MyControl.SetFocus is that you have to hardwire the actual name of the control, so you'd have to have a separate button for each field that you might want to search. Instead, use

Screen.PreviousControl.SetFocus

This will set focus back on whichever control had focus before you clicked on the search button, so you can have one button and search any control. Here's a piece of code I use behind a search button. It opens up the Find dialog box for whatever control had focus last, and searchs Any Part of Field:

Private Sub Search_Click()
    Screen.PreviousControl.SetFocus
    SendKeys "%ha%n", False
    DoCmd.RunCommand acCmdFind
End Sub
 

[jimleon]

Many thanks, that worked a treat.

The problem with using Me!MyControl.SetFocus is that you have to hardwire the actual name of the control, so you'd have to have a separate button for each field that you might want to search. Instead, use

Screen.PreviousControl.SetFocus

This will set focus back on whichever control had focus before you clicked on the search button, so you can have one button and search any control. Here's a piece of code I use behind a search button. It opens up the Find dialog box for whatever control had focus last, and searchs Any Part of Field:

Private Sub Search_Click()
    Screen.PreviousControl.SetFocus
    SendKeys "%ha%n", False
    DoCmd.RunCommand acCmdFind
End Sub