AccessTr.neT
Açılan Kutu Seçimine göre diğer açılan kutuları kilitlemek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan Kutu Seçimine göre diğer açılan kutuları kilitlemek (/konu-acilan-kutu-secimine-gore-diger-acilan-kutulari-kilitlemek.html)



Açılan Kutu Seçimine göre diğer açılan kutuları kilitlemek - iscinar - 27/08/2011

Daha önce açmış olduğum konuyla bağlantılı olarak seçime göre göster gizle yapmış olduğumuz açılan kutulardan bir kısmını (Seçilecek rapora göre 1, 2, 3 veya dilediğimiz kadarını ) kilitleyebilirmiyiz?

Örneğin:
Personel Raporlarından Kan Grubunu seçtiğimizde Personel Kriter içindeki Kan Grubu enable diğer açılır kutular disable olsun veya Adres Raporunu seçtiğimde İl, İlçe ve mahalle enable diğerleri disable olsun gibi.

Not: Eklediğim örnek daha önce açılmış ve yarım kalmış bir konu üzerine fikir anlamında doğmuş, linkini eklediğim konu ile şu anki halini almıştır. Örnek olduğu için Açılan kutuların hangi raporda hangisinin kilitlendiğinin önemi yoktur. Öğrenmek istediğim bu örneği çalıştığım projeme eklerken izleyeceğim yoldur.

İlgilenecek herkese şimdiden teşekkür ediyorum


Cvp: Açılan Kutu Seçimine göre diğer açılan kutuları kilitlemek - ozanakkaya - 27/08/2011

Örnek kod aşağıda, "RaporCins" açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yaz.
Çalıştırdığında false yazılı açılan kutular kilitlenir, diğer kriterlere ve gizlenecek kutulara göre kodu düzenlemeniz gerekiyor.
Private Sub RaporCins_AfterUpdate()
Select Case Me.RaporCins.Column(1)
Case "Kan Grubu"
isim.Enabled = False
kangrubu.Enabled = False
ili.Enabled = False
Case "Personel Adres"
isim.Enabled = True
kangrubu.Enabled = True
ili.Enabled = False
Case "Personel Raporu"
isim.Enabled = True
kangrubu.Enabled = False
ili.Enabled = True
Case Else
isim.Enabled = True
kangrubu.Enabled = True
ili.Enabled = True
End Select
End Sub



Cvp: Açılan Kutu Seçimine göre diğer açılan kutuları kilitlemek - iscinar - 27/08/2011

Teşekkürler Sn. sledgeab
Kodları uyguladım sorun yok istediğim rapora istediğim kutuları bağlayıp tekrar geri dönüş yapacağım.


Cvp: Açılan Kutu Seçimine göre diğer açılan kutuları kilitlemek - iscinar - 27/08/2011

Sn. sledgeab
İşlem tamam gayet güzel çaılşıyor. Kodları ekledim Araç raporları için örnekleme yaptım ilk açılışta tümünü False yaptığım halde Kod bloğunun en başındaki şekilde geliyor (Araçlar için "Zimmet Raporu" Personel için "Personel Raporu" kodları ile açılıyor) gerçi çalışmada problem yok ama acaba bir yerde hata mı yaptım diye düşünüyorum.

Örnek 1. mesajda güncellenmiştir.


Cvp: Açılan Kutu Seçimine göre diğer açılan kutuları kilitlemek - ozanakkaya - 27/08/2011

Formu tasarım görünümünde aç, tüm açılan kutuların Etkin Özelliğine Evet, Kilitli özelliğine Hayır olarak değiştirip formu kapat, tekrar açtığında pasif kutu olmaz.


Cvp: Açılan Kutu Seçimine göre diğer açılan kutuları kilitlemek - iscinar - 27/08/2011

Çok teşekkür ediyorum Sn. sledgeab