+- 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ığı: Personel Formu (/konu-personel-formu.html)
Personel Formu - ertans - 05/02/2019
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.
Cvp: Personel Formu - berduş - 05/02/2019
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 ifCvp: Personel Formu - ertans - 05/02/2019
(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ı.
Cvp: Personel Formu - berduş - 05/02/2019
ö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 ifCvp: Personel Formu - ertans - 05/02/2019
(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.
Cvp: Personel Formu - berduş - 05/02/2019
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ı?