Private Sub Öğe_AfterUpdate()

If Me.Öğe = "Bilgisayar" Then

Me.Bilgisayar_Detay.Visible = True

Me.Yazılım_Detay.Visible = False

Me.Telefon_Detay.Visible = False

Me.Hat_Detay.Visible = False

Me.Yazıcı_Tarayıcı_Detay.Visible = False

Me.Diğer_Detay.Visible = False



ElseIf Me.Öğe = "Yazılım" Then

Me.Bilgisayar_Detay.Visible = False

Me.Yazılım_Detay.Visible = True

Me.Telefon_Detay.Visible = False

Me.Hat_Detay.Visible = False

Me.Yazıcı_Tarayıcı_Detay.Visible = False

Me.Diğer_Detay.Visible = False



'--------------------------------

'Diğerlerini de bu şekilde devam ediniz

'-----------------------------------------

End If

End Sub

Programlarınızda Türkçe karakter kullanmamaya özen gösteriniz. Kolay gelsin.