Userforms : Default button

Hi Franck,

In the Design View of the userform, select the command button you want to set as the default and in the Properties window set the "Default" property to True. That should take care of it, hopefully!

My idea is

all controls on userform have properties TabStop - set it into False
on Userform_initialize event run OKbutton.SetFocus
on each control other then OKbutton on event afterudate of keyup or click etc. - call OKbutton.SetFocus at the end of code

Hi Maczaq,

The SetFocus method will only set the focus on that button when you load the form. As soon as you click a textbox or checkbox, etc., that focus will be drawn away from the "default" command button. You need to set it as the default in its properties to make sure it stays active when pressing Enter. (If you have more than one command button on the form and click a non-default button, the default status of your primary 'default' button will be lost, though - until you click into one of the other objects like textboxes/checkboxes, then the default status of your button will return.)

so my idea is i.e. any move on form has been made - at the end of any controls code on form at the end of code Frank should type OKbutton.SetFocus
so focus should be set up after any action

You could, but using the Default property requires no code, so you don't have to remember to adjust it when something changes. (4 out of 5 programmers prefer only making 1 change instead of multiple. The fifth guy likes Java coding, so we don't really count him in polls.)

You have right - now I lern how to use Default button
I attach sample workbook shows my point of view - I know it is a bit stupid but works

My solution works but default button is better indeed.

I find only problem when on form there is more then one commandButton - other button had to have:

Please Login or Register  to view this content.

Cheers

First you have to select all the controls in your form and set the TAB STOP property to false
then paste this code in your form vba code page. Replace the "UserForm" word with the name of the form and replace the "CommandButton1" with the name of the button you want to activate when the user press ENTER.

Please Login or Register  to view this content.

Here's a version using the Default property of CommandButton1 on the userform. Only code is to open the userform upon opening the workbook, and to display a message box when the button is clicked or Enter is pressed from any of the fields on the userform.

Administrative Note:

Welcome to the forum, Lestrad.

We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original. Please start a new thread - See Forum rule #4

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread