Soru option button

[sirkülasyon]

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Me.MultiPage2.Visible = True
Me.MultiPage2.Pages("Page1").Visible = True
Me.MultiPage2.Pages("Page2").Visible = False
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2 = True Then
Me.MultiPage2.Visible = True
Me.MultiPage2.Pages("Page1").Visible = False
Me.MultiPage2.Pages("Page2").Visible = True
End If
End Sub

OptionButton1'i ilk seçimde MultiPage2' deki Page1' i içindeki nesneler ile birlikte gösteriyor.
OptionButton2'i ilk seçimde MultiPage2' deki Page2' i içindeki nesneler ile birlikte gösteriyor.
OptionButton1' den OptionButton2'ye tekrar geçtiğim zaman page görünüyor ama içindeki nesneler görünmüyor.

Nesneler (Textbox, Commandbutton, combobox) visible değeri false değil ama görünmüyor

Rica etsem kodda hata var ise düzeltebilir misiniz?

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Me.MultiPage2.Visible = True
Me.MultiPage2.Pages("Page1").Visible = True
Me.MultiPage2.Pages("Page2").Visible = False
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2 = True Then
Me.MultiPage2.Visible = True
Me.MultiPage2.Pages("Page2").Visible = True
Me.MultiPage2.Pages("Page1").Visible = False
End If
End Sub

Sayfa değiştirmek için ise aşağıdaki kodlar kullanılabilir

Private Sub OptionButton1_Click()
Me.MultiPage2.Value = 0
End Sub
Private Sub OptionButton2_Click()
Me.MultiPage2.Value = 1
End Sub

 

[sirkülasyon]

Ellerine sağlık. Teşekkür ederim.
Cumanız mübarek olsun