ilk sorunuzun cevabı alttadır, diğer soru için yeni konu açınız.

1 "RaporCerceve" Seçenek Gurubunun Varsayılan Dağerini 2 olarak belirle.
2 Soldaki, yani araç ile ilglii olan açılan kutuların İm değerlerini 1, sağdaki açılan kutuların im değerlerini 2 olarak değiştir.



3 Aşağıdaki kodları Vba sayfasında (alt+f11) en alta ekle.

Sub AcilanKutuGizleGoster()

Dim AcilanKutu As Control

If Me.RaporCerceve = "1" Then

For Each AcilanKutu In Me.Controls

 If AcilanKutu.Tag = "1" Then

 AcilanKutu.Visible = True

 End If

 If AcilanKutu.Tag = "2" Then

 AcilanKutu.Visible = False

 End If

 Next

Else

For Each AcilanKutu In Me.Controls

 If AcilanKutu.Tag = "1" Then

 AcilanKutu.Visible = False

 End If

 If AcilanKutu.Tag = "2" Then

 AcilanKutu.Visible = True

 End If

 Next

End If

End Sub

4 "RaporCerceve" Seçenek Gurubunun Güncelleştirme Sonrasında olayına aşağıdaki kodu ekle

Call AcilanKutuGizleGoster

5 Formun Geçerli olduğunda olayına aşağıdaki kodu ekle.

Call AcilanKutuGizleGoster