If [KVM] < GV20 Then GVORAN = 15
If [KVM] > GV20 And [KVM] < GV27 Then GVORAN = 20
If ([KVM] + [GV MATRAHI]) > GV20 And [KVM] < GV20 Then GVORAN = 15 + [Metin359]
If [KVM] > GV27 Then GVORAN = 27
If ([KVM] + [GV MATRAHI]) > GV27 And [KVM] < GV27 Then GVORAN = 20 + [Metin361]
yukarıdaki kodun kv matrahı alanının ve gv matrahı alanının değişmesi/güncellenmesi sonrasında çalışmasını istiyorum.
kodu kv matrahı alanının ve gv matrahı alanının güncelleştirme sonrasında olayına yazdım çalışmıyor. fakat bir düğmenin tıklandığı olayına yazarsam çalışıyor.
Sn edacan19; El ile girdiginiz meti kutulari guncelleme olayina Call hesapzamani diye yazdirip, ilgili sinuclari alabilirsiniz.
Private sub GV20_afterupdate()
Call HesapZamani
end sub
Private sub GV27_afterupdate()
Call HesapZamani
end sub
Sub HesapZamani()
If [KVM] < GV20 Then GVORAN = 15
If [KVM] > GV27 Then GVORAN = 27
If [KVM] > GV20 And [KVM] < GV27 Then GVORAN = 20
If ([KVM] + [GV MATRAHI]) > GV20 And [KVM] < GV20 Then GVORAN = 15 + [Metin359]
If ([KVM] + [GV MATRAHI]) > GV27 And [KVM] < GV27 Then GVORAN = 20 + [Metin361]
End sub
Merhaba
verdiğiniz kod çalışıyor teşekkür ederim lakin sizinde söylediğiniz gibi elle girilen yerlerde çalışıyor benim formumda elle girilen yer yok hep diğer alt formlardan veri alıyor. verdiğiniz kodu alt formlara uygulamaya çalıştım olmadı.
Sn edacan19;
Hesaplanan alanlarin tetiklendigi, elle girilen verilerin olmasi gerekiyor. Alt formdaki bu alanlar da uygulamaniz icin bir modulun icine HesapZamani tasiyip, Call ile alan guncelleme islemi ile hesaplama yaptirabilirsiniz.
Sub HesapZamani()
If Forms!PUANTAJ!KVM < Forms!PUANTAJGV20 Then Forms!PUANTAJ!GVORAN = 15
If Forms!PUANTAJ!KVM > Forms!PUANTAJ!GV27 Then Forms!PUANTAJ!GVORAN = 27
If Forms!PUANTAJ!KVM > Forms!PUANTAJ!GV20 And Forms!PUANTAJ!KVM < Forms!PUANTAJ!GV27 Then Forms!PUANTAJ!GVORAN = 20
If (Forms!PUANTAJ!KVM + Forms!PUANTAJ![GV MATRAHI]) > Forms!PUANTAJ!GV20 And Forms!PUANTAJ!KVM < Forms!PUANTAJ!GV20 Then Forms!PUANTAJ!GVORAN = 15 + Forms!PUANTAJ!Metin359
If (Forms!PUANTAJ!KVM + Forms!PUANTAJ![GV MATRAHI]) > Forms!PUANTAJ!GV27 And Forms!PUANTAJ!KVM < Forms!PUANTAJ!GV27 Then Forms!PUANTAJ!GVORAN = 20 + Forms!PUANTAJ!Metin361
End sub
Forms!PUANTAJ.Recalc ile de formullerin oldugu alanlari yenileyebilirsiniz.
(27-01-2015, 10:28)edacan19 demiş ki: Merhaba
alt forma uyguladım çalışıyor fakat doğru sonucu verdiğide oluyor vermediğide çok kararsız çalışıyor.
Ilgili formulun sonuclari ile degerlendirme yapma sansim yok, sadece alan adresleri ile yontem belirlemeye calistim. Form uzerindeki formuller ile hesaplatilmis alanlar istenilen gibi sonuclanmamasi form uzerinde ki bu alanlara ait formullerin bastan kontrol edilmeli. Sonuclari sifir cikan formullere 1 deger atip, hesaplama islemleri yapilabilir.
