? set focus to a textbox when userform opens

[madhg]

I'm creating a userform for editing membership records of a small organisation. So I want the focus to default to textbox tboxFind which is used for searching the data.

I've put tboxFind first in the tab order, and in subroutine Userform_Initialize, the last line is tboxFind.SetFocus

Using Excel2000 on Windows Vista, it works OK.

Opening the same workbook in Excel2000 on WinXP, no textbox has the focus when the form opens, but once the user has started to use the form, the focus defaults back to tboxFind, as it should.

So why is the focus not where it should be when the form opens in WinXP?

[Leith Ross]

Hello madhg,

You have to remember that Windows Vista is the first Microsoft operating system to break from the past methodology of backward compatibility. If you need the code to work on previous systems then you should develop the code using the correct Windows version, if possible.

The UserForm Initialize and Activate events are different. The Initialize event happens only once when the UserForm is being created in memory as an object. The Activate event fires when the UserForm is actually displayed. You can't set focus to window or one of its controls, until it is displayed. Set the focus to your text box in the Activate event.

Private Sub UserForm1_Activate()
  tboxFind.SetFocus
End Sub

[madhg]

Thanks, Leith, that's very useful. I should have looked up Userform properties, methods and events in ExcelVBA Help!

However, I can't get it to work. I put the subroutine you suggested into my code, with a Debug.Print command to check that the subroutine was being executed. The subroutine does run (after changing Userform1 to Userform, which is strange since the name of the form is Userform1). But on XP, which is where the workbook has been developed, it does not set focus to tboxFind. When I put a different textbox into subroutine Userform_Activate, it sets the focus to that OK. But not to tboxFind.

But the other occurences of textboxFind.SetFocus in my code do set the focus whenever the user navigates to another record. The code is unfortunately too long and complicated for me to upload and expect anyone else to look at. I suppose I could try to concoct a heavily cut-down version that demonstrates the same problem, but that would take quite some time.

Anyway, at least I've learnt about the activate event. Thanks again,
David

[Leith Ross]

Hello David,

If you post your workbook, I'll take a look to see where the problem is.

[madhg]

OK, it's 1.2Mb, too big to upload, but I've put it where you can download it:

http://www.zen22109.zen.co.uk/madhg.xls

Many thanks!
David

[Leith Ross]

Hello David,

You are setting the focus to tboxLastName and not to tboxFind.

Private Sub UserForm_Activate()
  Debug.Print "In Activate"
  tboxLastName.SetFocus
End Sub

Change it to tboxFind and it will work.