Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
05/02/2019 11:14
Konu Sahibi
ertans
Yorumlar
17
Okunma
502
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
ertans

ertans

Gümüş Üye
83301
Er.... Sa....
 49
 35
 123
 27/06/2016
0
 İzmir
 Ulaşım Sektörü
 Ofis 2010 64 Bit
 13/06/2019,13:19
Çözüldü 
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.



halily

halily

Uzman
65596
Ha....
 26
 1.158
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:35
form yükleme/geçerli olduğunda olaylarına -personel bilgilerinin altform'da gösterildiğini varsayarsak- aşağıdakine benzer bir kod olmalı

Visual Basic Code
if not isnull(ayrilmatarihi) then 
altform.Enabled = False 
altform.Locked = True
end if



...........
ertans

ertans

Gümüş Üye
83301
Er.... Sa....
 49
 35
 123
 27/06/2016
0
 İzmir
 Ulaşım Sektörü
 Ofis 2010 64 Bit
 13/06/2019,13:19
(05/02/2019 11:28)haliliyas Adlı Kullanıcıdan Alıntı: form yükleme/geçerli olduğunda olaylarına -personel bilgilerinin altform'da gösterildiğini varsayarsak- aşağıdakine benzer bir kod olmalı

Visual Basic Code
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ı.



halily

halily

Uzman
65596
Ha....
 26
 1.158
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:35
ö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

Visual Basic Code
1
2
3
4
5
6
7
8
9
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



...........
ertans

ertans

Gümüş Üye
83301
Er.... Sa....
 49
 35
 123
 27/06/2016
0
 İzmir
 Ulaşım Sektörü
 Ofis 2010 64 Bit
 13/06/2019,13:19
(05/02/2019 12:29)haliliyas Adlı Kullanıcıdan Alıntı: ö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

Visual Basic Code
1
2
3
4
5
6
7
8
9
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.



halily

halily

Uzman
65596
Ha....
 26
 1.158
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,11:35
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ı?



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formu Açıldığında Boş Geliyor haziran4 2 178 16/05/2019, 16:06
Son Yorum: haziran4
Çözüldü Veri Girişi Formu Nasıl Olmalı? icemeno 6 272 11/05/2019, 23:50
Son Yorum: icemeno
Çözüldü Formu Her Açtığımda İşlem Oluşturuyor. hegu 8 297 17/04/2019, 16:14
Son Yorum: hegu
Çözüldü Dinamik Veri Giriş Formu alexwoz 7 412 07/02/2019, 14:22
Son Yorum: alexwoz
Çözüldü Formu Beklet Moduna Alıp Kapatarak Ait Olduğu Denetimi Bekleme Modu Rengine Çevirme Oğuz Türkyılmaz 26 692 12/01/2019, 15:04
Son Yorum: Oğuz Türkyılmaz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.