"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.