![[Resim: 13342279772.jpg]](https://resim.accesstr.net/uploads/13342279772.jpg)
İstediğiniz şekli aşağıdadır. Liste öğelerini düzenle meselesi Değer Listesi olan açılan kutuların elemanlarını düzenleme imkanı veren hoş bir ekrandır.
Private Sub Açılan_Kutu1_AfterUpdate()
Select Case Açılan_Kutu1
Case "Yok" 'Eğer Açılan_Kutu1 in değeri YOK ise 'Açılan_Kutu2 yi flue yap
Açılan_Kutu2.Enabled = False
Case "Var" 'Eğer Açılan_Kutu1 in değeri VAR ise 'Açılan_Kutu2 yi normal yap
Açılan_Kutu2.Enabled = True
End Select
End Sub
'Eğer Açılan_Kutu1 in değeri YOK ise
If Açılan_Kutu39 = "Yok" Then
Açılan_Kutu41.Enabled = False
'Açılan_Kutu2 yi flue yap
End If
If Açılan_Kutu39 = "VAR" Then
Açılan_Kutu41.Enabled = True
End If