Multipage

Hi,

I have a form that I have completed with radio buttons, which, when selected
shows a different set of fields for the user.

I know how to make a frame visible, but the problem I see with this is the
"space" two separate frames make when only one is chosen.

I decided upon a multipage layout with the style as fmTabStyleNone so it
looks seemless.

The problem I am having is getting the correct (actually, any!) multipage
layout to appear on selection of the radio button. So far I have:

_______
hides the frame which surrounds the multipage until radio is selected
_______

Public Sub UserForm_Initialize()

TabsFrame.Visible = False


End Sub


_______
I copied this from the help file but can't get it to work Error
message is Invalid class string
_______
Private Sub TOption1_Click()
Tabs.Visible = True

Dim TabIndividual As Control

If TOption1 = True Then
Set TabIndividual = TabsFrame.Pages(0).Controls.Add("frmMain" _
& ".TextBox.1", "TabIndividual", Visible)


End If

End Sub

Private Sub TOption2_Click()
Tabs.Visible = True

Dim TabCompany As Control

If TOption2 = True Then
Set TabCompany = TabsFrame.Pages(0).Controls.Add("frmMain" _
& ".TextBox.1", "TabCompany", Visible)


End If

End Sub




Thanks in advance!!

I would just put all of the controls on the one form and assign a tag name
to each control in each group (e.g. use Company for the company controls and
Individual for the individual controls) and then use the following code for
the Option buttons:

Private Sub OptionButton1_Click()
Dim acontrol As Control
For Each acontrol In Me.Controls
With acontrol
If .Tag = "Company" Then
.Visible = True
ElseIf .Tag = "Individual" Then
.Visible = False
End If
End With
Next acontrol

End Sub
Private Sub OptionButton2_Click()
Dim acontrol As Control
For Each acontrol In Me.Controls
With acontrol
If .Tag = "Individual" Then
.Visible = True
ElseIf .Tag = "Company" Then
.Visible = False
End If
End With
Next acontrol

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"Kiwi User" <KiwiUser.DeleteThis@discussions.microsoft.com> wrote in message
news:F34D207C-BFB1-4C81-A952-4E8FF091D08F@microsoft.com...
> Hi,
>
> I have a form that I have completed with radio buttons, which, when
> selected
> shows a different set of fields for the user.
>
> I know how to make a frame visible, but the problem I see with this is the
> "space" two separate frames make when only one is chosen.
>
> I decided upon a multipage layout with the style as fmTabStyleNone so it
> looks seemless.
>
> The problem I am having is getting the correct (actually, any!) multipage
> layout to appear on selection of the radio button. So far I have:
>
> _______
> hides the frame which surrounds the multipage until radio is selected
> _______
>
> Public Sub UserForm_Initialize()
>
> TabsFrame.Visible = False
>
>
> End Sub
>
>
> _______
> I copied this from the help file but can't get it to work Error
> message is Invalid class string
> _______
> Private Sub TOption1_Click()
> Tabs.Visible = True
>
> Dim TabIndividual As Control
>
> If TOption1 = True Then
> Set TabIndividual = TabsFrame.Pages(0).Controls.Add("frmMain" _
> & ".TextBox.1", "TabIndividual", Visible)
>
>
> End If
>
> End Sub
>
> Private Sub TOption2_Click()
> Tabs.Visible = True
>
> Dim TabCompany As Control
>
> If TOption2 = True Then
> Set TabCompany = TabsFrame.Pages(0).Controls.Add("frmMain" _
> & ".TextBox.1", "TabCompany", Visible)
>
>
> End If
>
> End Sub
>
>
>
>
> Thanks in advance!!