Issue of MultiPage.value setting as default in Userform_Initialize

[NimishK]

Hi

I've small query regarding usage of Multipage
There is an issue when Userform is initilaized eventhough you set a Page value to a default

Private Sub UserForm_Initialize()
Load uf1
MultiPage1.Value = 0
End Sub

Private Sub MultiPage1_Change()

Select Case MultiPage1.Value
Case Is = 0
combo1.Text =  "Rate % [+]"
combo1.AddItem "Rate % [+]"
combo1.AddItem "Rate % [-]"

Case Is = 1
combo2.Text =  "Rate % [+]"
combo2.AddItem "Rate % [+]"
combo2.AddItem "Rate % [-]"

End Select
End Sub

The above MultiPage1.Value = 0 will be default whether the userform in Coding Enviorment displaying Multipage value = 1

With above statement scenario
The issue was observed when combobox1 did not display its items the values when MultiPage1.Value = 0. from above multiPage1_Change event when form was intialized.
I had to click both the Tabs of Each Page to get its proper functioning

In anticipation of above issue then there could be more things croped up with clicking on Tabs of each page for proper functioning

Any other methods for proper result apart from all the combboxes1 and 2 with text property and .Additems incorporated in UserForm_Initialize Event

NimishK

 

[dmt32]

Hi,
There is no issue that I can see with UserForm_Initialize event - The MultiPage1_Change event will only trigger if a page is changed.
If the default page at design time is Page1 (value 0) then no change is being made when your form is first displayed - hence why no values are shown.

You should be able to resolve by making Page2 the "Active" page at design time & then your line of code in Initialize event setting value to 0 should trigger the event.

As a side note - you may want to review your AddItem codes in the Multipage change event as selecting pages will just keep adding the values to your comboboxes.

Hope Helpful

Dave

 

[NimishK]

Dave Indeed Helpful

You should be able to resolve by making Page2 the "Active" page at design time & then your line of code in Initialize event setting value to 0 should trigger the event.

As a side note - you may want to review your AddItem codes in the Multipage change event as selecting pages will just keep adding the values to your comboboxes.

This is What i did under the circumstances

Private Sub UserForm_Initialize()
If MultiPage1.Value = 0 Then
   MultiPage1.Value = 1
End If
 
If MultiPage1.Value = 1 Then
   MultiPage1.Value = 0
End If

End Sub

Select Case MultiPage1.Value
Case Is = 0
combo1.Clear
combo1.Text =  "Rate % [+]"
combo1.AddItem "Rate % [+]"
combo1.AddItem "Rate % [-]"

Case Is = 1
combo1.Clear
combo2.Text =  "Rate % [+]"
combo2.AddItem "Rate % [+]"
combo2.AddItem "Rate % [-]"

End Select
End Sub

Eventhough which ever page is active at design time. Line of code should execute from coding
NimishK