Minor issue while looping throgh controls

[birdieman]

I am trying to loop through all textboxes on the "active" page of a multipage userform and change the backstyle on each one:

Dim cCont As Control
    For Each cCont In Me.MultiPage1.ActivePage.Controls
        If TypeName(cCont) = "TextBox" Then
            .BackStyle = fmBackStyleTransparent
        End If
    Next cCont
End Sub

I am getting a compile error. What do I need to put in front of ".Backstyle....." to make it work? Also, is "ActivePage" correct?

thanks

 

[mikerickson]

cCont.BackStyle = fmBackStyleTransparent

 

[Norie]

You need cCont in front of .BackStyle.

As for ActivePage, there's no such thing - to refer to the active page of a multipage control you can use Me.MultiPage1.Pages(Me.MultiPage1.Value).

Dim cCont As Control

    For Each cCont In Me.MultiPage1.Pages(Me.MultiPage1.Value).Controls
        If TypeName(cCont) = "TextBox" Then
            cCont.BackStyle = fmBackStyleTransparent
        End If
    Next cCont

 

[birdieman]

thanks to you both.

Norie, Your suggestion will make the code run ONLY on the page of the multipage that is currently showing. Correct?

 

[Norie]

That's right, isn't that what you want?

 

[birdieman]

yes, thank you