VBA reset all pages in multipage

[boegie]

Hi all,

I'm working on a userform. When changing a certain optionbutton, the userform should reset all pages of a multipage.

I tried reset/ multipage.pages().controls.clear/...

nothing seems to work. Who can help me with the code please?

Thanks!

[Paul_Hossler]

Not sure about what 'reset' exactly means since it's not a VBA method as far as I can see

UserForm1 has MultiPage1 on it with Page1..Page5

HTH




Option Explicit
Sub drv()


Load UserForm1

Dim i As Long
For i = 0 To UserForm1.MultiPage1.Pages.Count - 1
Select Case i
Case 0
MsgBox "Resetting " & UserForm1.MultiPage1.Pages(i).Caption
Case 1
MsgBox "Resetting " & UserForm1.MultiPage1.Pages(i).Caption
Case 2
MsgBox "Resetting " & UserForm1.MultiPage1.Pages(i).Caption

'etc.

End Select

Next i
UserForm1.Show
End Sub

[boegie]

Thanks for your reply Paul!

I want to clear all pages on the multipage (textboxes, optionbuttons and checkboxes).

I have a button, when you click the button, the vba should erase the multipage.

[Paul_Hossler]

Maybe this then, but .Clear only works for controls added at run time

Otherwise you'd probably have to loop the Pages and then loop the Controls with .Delete





Option Explicit

Sub drv()


Load UserForm1

Dim i As Long
For i = 0 To UserForm1.MultiPage1.Pages.Count - 1
UserForm1.MultiPage1.Pages(i).Clear
Next I

UserForm1.Show
End Sub


PS -- Not tested

[mikerickson]

Are you looking for something like


Dim onePage As MSForms.Page
Dim oneControl As MSForms.Control, i As Long

For Each onePage In MultiPage1.Pages
For Each oneControl In onePage.Controls
Select Case TypeName(oneControl)
Case "CheckBox", "OptionButton"
oneControl.Value = False
Case "TextBox", "RefEdit"
oneControl.Text = vbNullString
Case "ComboBox", "ListBox"
If oneControl.MultiSelect <> fmMultiSelectSingle Then
With oneControl
For i = 0 To .ListCount - 1
.Selected(i) = False
Next i
End With
Else
oneControl.ListIndex = -1
End If
End Select
End Select
Next oneControl
Next onePage