AccessTr.neT

Gecikme hesapla butonuna tıklandığında aşağıdaki işlemleri yaptırmak istiyorum;

1- Eğer Bugünün tarihi taksit tarihinden sonra ise ve o taksit ödenen hanesi boş ise (yani ödenmediyse) gecikme gün hanesine, bugün - taksit tarihi yani kaç gün geciktiğini yazdırmalı,

2- Eğer Taksit Tarihi bugünden önce ise, kalan tutar hanesine taksit tutarı eksi ödenen tutar işlemini uygulayarak kalan tutarı yazmalı,

3- Gecikme tutarı hanesi için ise, (en önemlisi burası) yıllık %15 faiz oranına göre kaç gün gecikti ise gecikme tutarını yazdırmalı,

NOT: Sadece 1 taksit için bu kodu yazın geri kalan 23 taksite ben koda bakarak uygularım aynı zamanda da öğrenmiş ve mantığını anlamış olurum. Şimdiye kadar accestr hiçbir sorumu cevapsız bırakmadı ve ben eğitim fakültesinde Access ile alakalı burada öğrendiğim kadar çok şey öğrenmedim. ilginize tekrar tekrar teşekkür ederim. Satış formuna gerçek olmayan bilgiler deneme amaçlı girilmiştir.

Konu ile ilgili yardımcı olabilecek kimse yokmu?

Yazdıklarınızdan anladığım kadarıyla,

"Gecikme hesapla" (Komut476) butonunun tıklandığında olayına aşağıdaki kodu ekle

If Me.Metin123 < Date And IsNull(Me.Metin281) Or Me.Metin281 = "" Then



Me.Metin427 = DateDiff("d", Me.Metin123, Date)

Me.Metin297 = (Me.Metin125 * 15 * Metin427) / 36000

End If



If Me.Metin123 < Date And Not IsNull(Me.Metin281) Then

Me.Metin293 = (Me.Metin125 - Me.Metin281)

End If

1. if 1 ve 3, 
2. if 2. maddedeki sorunun cevabıdır.

Tüm alanların hesaplanması için tek kod yazılabilirdi ancak metin kutusu isimleri karışık olduğu için döngü kuramıyorum.

Faiz olayındaki hesaplama hatalı olabilir.

Hocam Yazdığınız mantıklı ve faiz hesabını doğru yapıyor defalarca sağlamasını yaptım ancak şöyle bir değişikliğe ihtiyaç duydum.

Gecikme hesapla butonuna tıklanma olayı için;

Taksit hiç ödenmediği durumda

Taksit tarihi bugünün tarihinden önce ise ve odenen hanesi boş ise şunları yap;
Kalan tutar= Taksit tutarı (kalan tutar eşit olsun taksit tutarına)
ve
Geçikme gün sayısı = bugün - taksit tarihi ( Geciken gün sayısı bugün eksi taksit tarihi olsun)
Gecikme faizi hanesi = (kalan tutar * 15*gunsayısı )/36500


bu yukarıdaki olaylar taksit hiç ödenmediği ve tarihi geçtiği durumda.

###################################
Ancak şöyle bir olay var taksit tutarının bir kısmı ödendi ise ;
bu durumda aşağıdaki işlemleri yap;

kalan tutar = taksit tutarı - ödenentutar

Kalan tutar küçükse taksit tutarından ve büyükse sıfırdan;

gecikme gün sayısı = bugun - ödenen tarih olsun

gecikme faizi de (kalan tutar*gun sayısı*15)/36500 olsun



sabaha kadar bu olayları sizin yazıdıgınız koda bakarak uygulamaya çalıştım başarısız oldum yardımcı olursanız sevinirim...

Hallettim teşekkürler sonunda.

(03/08/2015, 17:04)celilpartal yazdı: [ -> ]Hallettim teşekkürler sonunda.

nasıl hallettiğinizi söylememişsiniz. hallolmuş hali ile yüklerseniz seviniriz.