Solved Loop through all buttons in a form

[freuzo]

Hi,
I have a form with many buttons. I need the labels of those buttons to be align on the left so I have this code on the load event :

btn_1.Alignment = 1
btn_2.Alignment = 1
btn_3.Alignment = 1

and so on...

How can I loop through those buttons to set this one time and for all. I don't want to come back to add a line everytime that I'll have to add a control in that form.

Thanks in advance.

 

[theDBguy]

Something like?

For x = 1 To 3
    Me.Controls("btn_" & x).Alignment = 1
Next

 

[Pat Hartman]

Why are you doing this every time the form opens? Why would you not just fix the layout and be done with it?

 

[freuzo]

Why are you doing this every time the form opens? Why would you not just fix the layout and be done with it?

I'm building in ms access 2013 and there is no way to align button's labels in the design mode (or did I miss someting ? ).
So I searched and found this code.

 

[Pat Hartman]

Not sure what your problem is but I do this all the time when I create forms. Please post pictures or the form itself.

 

[freuzo]

Not sure what your problem is but I do this all the time when I create forms. Please post pictures or the form itself.

I'm Trying to have all labels align on the left.
If there is a way in the design mode in access 2013 to do that, I didn't see it. So I found the code above (made on the first two buttons as you see).

 

[theDBguy]

View attachment 96591

I'm Trying to have all labels align on the left.
If there is a way in the design mode in access 2013 to do that, I didn't see it. So I found the code above (made on the first two buttons as you see).

Look for the Alignment property.

 

[freuzo]

Look for the Alignment property.

View attachment 96595

I just want to laught.
So It was just there all this time.... Silly me

Thank you theDBguy and Pat Hartman...

 

[CJ_London]

presume you know you can select all the (relevant) controls and all common properties will show so you can set the alignment for all controls in one click

 

[Pat Hartman]

Isn't it great when something is easier than you think

 

[theDBguy]

Good luck with your project!

 

[freuzo]

Isn't it great when something is easier than you think

It certainly is...