Merhaba, çalışanların bilgilerini takip ettiğimiz personel formu oluşturdum. Bir personel işten ayrıldığında ve işten ayrılma tarihi girildiğinde o personele ait sayfanın silik ve kilitli görünmesini nasıl sağlayabilirim.

Yardımlarınız için şimdiden teşekkür ederim, iyi çalışmalar.

form yükleme/geçerli olduğunda olaylarına -personel bilgilerinin altform'da gösterildiğini varsayarsak- aşağıdakine benzer bir kod olmalı

if not isnull(ayrilmatarihi) then 

altform.Enabled = False 

altform.Locked = True

end if

(05/02/2019, 11:28)haliliyas yazdı: form yükleme/geçerli olduğunda olaylarına -personel bilgilerinin altform'da gösterildiğini varsayarsak- aşağıdakine benzer bir kod olmalı

if not isnull(ayrilmatarihi) then 

altform.Enabled = False 

altform.Locked = True

end if

Sayın haliliyas, cevabınız için teşekkür ederim. Alt form kullanmıyorum. Bu durumda kod nasıl olmalı.

örnek çalışmanızı eklerseniz daha kolay olur ama tam olarak veriler nerde gösteriliyor?
eğer ana form üzerinde ise verilerin gösterildiği metin/açılan kutulara im ekleyerek bu imlere sahip alanlar için  
aynı kod mantığını kullanabilirsiniz. mesela verilerin gösterildiği metin kutularının hepsini seçin im/tag kısmına
"Veriler" gibi bir tanımlama yapıp
olay yordamına aşağıdaki kodu girin

Dim ctl As Control

if not isnull(ayrilmatarihi) then 

	For Each ctl In Me

    	    If ctl.Tag = "Veriler" Then    

        	ctl.Enabled = False 

		ctl.Locked = True

           End If

Next

end if

(05/02/2019, 12:29)haliliyas yazdı: örnek çalışmanızı eklerseniz daha kolay olur ama tam olarak veriler nerde gösteriliyor?
eğer ana form üzerinde ise verilerin gösterildiği metin/açılan kutulara im ekleyerek bu imlere sahip alanlar için  
aynı kod mantığını kullanabilirsiniz. mesela verilerin gösterildiği metin kutularının hepsini seçin im/tag kısmına
"Veriler" gibi bir tanımlama yapıp
olay yordamına aşağıdaki kodu girin

Dim ctl As Control

if not isnull(ayrilmatarihi) then 

	For Each ctl In Me

    	    If ctl.Tag = "Veriler" Then    

        	ctl.Enabled = False 

		ctl.Locked = True

           End If

Next

end if

Sayın haliliyas, yazdıklarınız uygulamaya çalıştım ama başarılı olamadım. Uygulama örneğini ekte gönderiyorum. İlginize teşekkür ederim.

ertan bey sadece personelle ilgili bilgilerin bulunduğu alanlar mı pasif/kilitli olacak?
butonlar ve komutları çalıştıran makroların atandığı arama/kaydet/düzelt.... gibi resimlerle ilgili bir durum var mı?