20/09/2019, 19:27
arkadaşlar mrb. küçük bir çalışma yapıyorum. ekte gönderdiğim örnekte veri girişi formunda sigorta bitiş tarihi günümüz tarihinden küçük ise formun ilgili kaydı false durumuna geçmesini istiyorum. teşekkür ederim
Sayfalar: 1 2
20/09/2019, 19:27
20/09/2019, 19:37
işlemler metin kutuları üzerinden gerçekleştiği için işlemleri metin kutusu adına göre yapmalısınız alan adına göre değil
Mesela "TC_no" alan adı ama ilişkili metin kutusunun adı "tcno"
dolayısıyla
tc_no.Enabled = False yerine
tcno.Enabled = False olmalı
diğerleri için de aynı şey geçerli
iyi çalışmalar
Mesela "TC_no" alan adı ama ilişkili metin kutusunun adı "tcno"
dolayısıyla
tc_no.Enabled = False yerine
tcno.Enabled = False olmalı
diğerleri için de aynı şey geçerli
iyi çalışmalar
20/09/2019, 19:47
(20/09/2019, 19:37)berduş yazdı: [ -> ]işlemler metin kutuları üzerinden gerçekleştiği için işlemleri metin kutusu adına göre yapmalısınız alan adına göre değilVerdiğiniz cevap için teşekkür ederim ama mesele bu değil gibi sorun çözülmedi. ayrıca sadece o şartı taşıyan kayıtlar false olsun istiyorum
Mesela "TC_no" alan adı ama ilişkili metin kutusunun adı "tcno"
dolayısıyla
tc_no.Enabled = False yerine
tcno.Enabled = False olmalı
diğerleri için de aynı şey geçerli
iyi çalışmalar
20/09/2019, 20:29
tam olarak ne istediğinizi daha ayrıntılı anlatır mısınız?
20/09/2019, 20:33
(20/09/2019, 20:29)berduş yazdı: [ -> ]tam olarak ne istediğinizi daha ayrıntılı anlatır mısınız?Sigorta bitiş tarihi günümüz tarihinden küçük olması durumunda yani sigorta süresi sona ermiş kayıtların form üzerinde false konumuna yani pasif olmasını istiyorum. Yani işlem yapmaya kapanmasını istiyorum
20/09/2019, 20:40
formload olayındaki kodu silip form current olayına aşağıdaki kodları yazıp dener misiniz?
Kod:
Private Sub Form_Current()
If Me.sigortabitişi < Date Then
Me.tcno.Enabled = False
Me.adısoyadı.Enabled = False
Me.işebaşlama.Enabled = False
Me.iştenayrılış.Enabled = False
Me.sigortabaşlagıcı.Enabled = False
Me.sigortabitişi.Enabled = False
Else
Me.tcno.Enabled = True
Me.adısoyadı.Enabled = True
Me.işebaşlama.Enabled = True
Me.iştenayrılış.Enabled = True
Me.sigortabaşlagıcı.Enabled = True
Me.sigortabitişi.Enabled = True
End If
End SubSayfalar: 1 2