Cursor to follow SetFocus

[roaftech]

I have looked through the threads but can't find a solution ...

My data entry form has a number of buttons, performing various functions via VBA code. These buttons have a tab sequence and, in addition, at the end of each function the focus is transferred to the next button, so that a series of presses of the Enter key would move through the form accepting the default action of each one.

The problem is that the cursor stays wherever it happens to be after pressing the first button or by having moved the mouse. An inattentive (but habitual) click of the mouse can trigger the wrong action. How can I persuade the cursor to follow the setfocus sequence?



TIA.

[Missinglinq]

This kind of thing is going to require using an API or rolling your own Class, I think, neither of which I'd tackle for something this basic, but here's a tutorial about using an API for Excel, which should work for Access, as well:

http://support.microsoft.com/kb/152969

What I would do, to let the user know where the Focus is, would be to simply change the Command Button's Text color and weight when the button has Focus:

Private Sub Button1_GotFocus()
 Button1.ForeColor = vbRed
 Button1.FontBold = True
End Sub

Private Sub Button1_LostFocus()
 Button1.ForeColor = vbBlack
 Button1.FontBold = False
End Sub

Linq ;0)>

[roaftech]

Thanks for the response. I already change the colours for the buttons to show progress through the form. The problem is that the cursor does not move to the new button and an accidental press of the mouse button actives an event out of sequence (eg, it reopens a subform and discards info already seleted.)

I will have a look at the link - many thanks.