Option Control to hide/show page tabs

[tandridge]

Hello all!



I am fairly new to access databases and am teaching myself as I go along. However I have now got myself stuck!

I am creating a form where I have an option group with 7 options and a tab control with 7 pages. What I want to happen is when a user selects an option only the corresponding page tab is displayed, all the others are hidden. I would also want all the tabs hidden when opening a new record and no selection has yet been made.

Is this possible and can anyone point me in the right direction?

Thanks for your time

[pdebaets]

Make all pages of a tab control invisible:

dim pge as page
For Each pge In MyTabControl.Pages
pge.Visible = False
Next pge

Make a tab control page visible

MyTabControl.Pages("My Page Name").Visible = True

[tandridge]

Hi Peter,

Thanks for your help. I have had a go but am not sure where I should be putting first part of the code.

I also assumed where I should change the code to refer to the names of my tab control and pages, on the on click event procedure for my option control is

Private Sub Option285_Click()
TabCtl52.Pages("Page1").Visible = True
End Sub

Is that correct?

[pdebaets]

I imagine that you'll want to hide all the pages before making the one you want visible made visible.

This code may work for you:

Private Sub Option285_Click()
'* Make all pages invisible
dim pge as page
For Each pge In TabCtl52.Pages
pge.Visible = False
Next pge
set pge = nothing

'* Make one page visible
TabCtl52.Pages("Page1").Visible = True
End Sub