Referencing controls on a page of a multipage

[Glowackattack]

Hi All,
I have the following code in a module that works fine for referencing a textbox on a page of a multipage on a userform, but I'm stumped trying to figure out how to reference the page object itself vs the multipage then referencing the page later. My code is:

Dim a As MultiPage
    
    Set a = UserForm1.MultiPage1
    
    a.Page2.P2_ScoreTotal.Value = (Val(a.Page2.P2_Q1_Score.Text) + Val(a.Page2.P2_Q2_Score.Text) + Val(a.Page2.P2_Q3_Score.Text) + Val(a.Page2.P2_Q4_Score.Text)) / 4

what i want to do is something like this: (but doesnt work)

Dim a As (What? Page?)
    
    Set a = UserForm1.MultiPage1.Page2
    
    a.P2_ScoreTotal.Value = (Val(a.P2_Q1_Score.Text) + Val(a.P2_Q2_Score.Text) + Val(a.P2_Q3_Score.Text) + Val(a.P2_Q4_Score.Text)) / 4

I'm sure this is pretty simple but i'm having trouble figuring it out. Thanks!!

 

[wigi]

Dim a As Page
    
    Set a = UserForm1.MultiPage1.Pages(3)
    
    a.P2_ScoreTotal.Value = (Val(a.P2_Q1_Score.Text) + Val(a.P2_Q2_Score.Text) + Val(a.P2_Q3_Score.Text) + Val(a.P2_Q4_Score.Text)) / 4

or the With... End With:

    With UserForm1.MultiPage1.Pages(3)
         .P2_ScoreTotal.Value = (Val(.P2_Q1_Score.Text) + Val(.P2_Q2_Score.Text) + Val(.P2_Q3_Score.Text) + Val(.P2_Q4_Score.Text)) / 4
    End With

 

[Glowackattack]

Thanks for the reply. I tried using that with the name of the page ("Page2") instead of using the index and it wasnt working...do you have the syntax for using the name?

 

[wigi]

If it's Page2 then probably it will be index value 1 instead of 3 (I added 1 instead of taking away 1).

If you'd like to use the name:

    With UserForm1.MultiPage1("Page2")
        MsgBox .Index
    End With

 

[Glowackattack]

I have the code below working just fine using the with statement, thanks for your help!!

    With UserForm1.MultiPage1.Page2
        .P2_ScoreTotal.Value = (Val(.P2_Q1_Score.Text) + Val(.P2_Q2_Score.Text) + Val(.P2_Q3_Score.Text) + Val(.P2_Q4_Score.Text)) / 4
    End With

but using the name when declaring a variable is not working as written below:

    Dim a As Page
    a = UserForm1.MultiPage1("Page2")
    a.P2_ScoreTotal.Value = (Val(a.P2_Q1_Score.Text) + Val(a.P2_Q2_Score.Text) + Val(a.P2_Q3_Score.Text) + Val(a.P2_Q4_Score.Text)) / 4

 

[wigi]

Dim a As MSForms.Page

 

[Glowackattack]

Hmm, this still isnt working, i'm getting an "invalid use of property" error now...

    Dim a As MSForms.Page
    a = UserForm1.MultiPage1("Page2")
    a.P2_ScoreTotal.Value = (Val(a.P2_Q1_Score.Text) + Val(a.P2_Q2_Score.Text) + Val(a.P2_Q3_Score.Text) + Val(a.P2_Q4_Score.Text)) / 4

 

[Glowackattack]

Got it, this works. Forgot the "Set"

    Dim a As msforms.Page
    Set a = UserForm1.MultiPage1("Page2")
    a.P2_ScoreTotal.Value = (Val(a.P2_Q1_Score.Text) + Val(a.P2_Q2_Score.Text) + Val(a.P2_Q3_Score.Text) + Val(a.P2_Q4_Score.Text)) / 4

Thanks again for the help!!

 

[wigi]

Still, I would prefer the With... End With.
But you will use it so you can decide what's best -