I cannot set a Command Button "Quick Style" in VBA unless a "Quick Style" has already been set.

[ThomasAJ]

Access 2016

I wish to convert 100s of buttons from the classic 3D style of Access 2003 to something more modern upon loading a form - using a Quick Style.

What is happening is that 'ctl.QuickStyle = 2' is being totally ignored in the code below unless the control has already had a quick style (say 3) applied manually in form design mode.

See Microsoft link for Quick Style numbers.

Private Sub Form_Load()


    ' https://docs.microsoft.com/en-us/office/vba/api/access.commandbutton.quickstyle
    
    Dim ctl As Control
    
    For Each ctl In Me.Controls
    
        If ctl.ControlType = acCommandButton Then
            If ctl.Name = "cmdTarget1" Then
                ctl.QuickStyle = 2
            End If
        End If
    
    Next ctl


End Sub

I couldn't find anything about this possible issue Googling.

[isladogs]

From your description...just a guess as I've not tested it myself...
Perhaps you need to loop through all the forms and add a quick style property to each?

Or a manual approach that may be faster...
Modify the buttons on one of your forms. Then select a button & click Format Painter.
Then go to each form in turn and click the buttons to 'paint' the new format.

Many years ago in the past, I did it all manually...
I imported a 'template button in the new format to each form, used format painter as above then cut the template button to the next form.
And I had hundreds of forms!

[davegri]

As Colin says:

Modify the buttons on one of your forms. Then select a button & click Format Painter.
Then go to each form in turn and click the buttons to 'paint' the new format.

If you double click on Format Painter it will stay selected and allow you to paint a series of buttons. It will stay selected until you click it again.

[Micron]

Interesting, so I play. A test form is open in form view and in immediate window
?forms!form1.command2.quickstyle and the result is
0
which means no quick style, yes?

forms!form1.command2.quickstyle = 3 and it turns white (background color) with an orange border

Perhaps your issue is something else, such as the tag or the wrong event. According to the documentation the property is just there - you don't have to create it.
Why do this in the load event? You can't save design changes that are done in form view even if you get that code to work.

[prakash.rawat0888]

You have to first enable theme then only it is accept quickstyle code.

        
           CommandButton.UseTheme = vbYes
           CommandButton.QuickStyle = 23

for more quick style you can refer this thread CommandButton.QuickStyle property (Access) | Microsoft Learn