Öncelikle 2 hususu düzeltelim.
sub Hesapla kodunda
Me.tutarı = (Me.satfıyatı * Me.kdv / 100) + Me.satfıyatı * Me.mıktar
şeklinde yazılmış, sanırım bu kod eksik hesaplıyor.
10 adet, satış fiyatı 21.60, kdv 8
bunu 217,728 olarak hesaplıyor. Bunun galiba 233,28 olması gerekiyor.
metin kutusunun biçim özelliğine #.##0,00 ₺;-#.##0,00 ₺ yazdığın için 217,728'i 217,73 olarak görüyorsun
iskonto yaparken 217,73 olarak gördüğün için 0,73 yazıyorsun ve 0,002 ₺ eksik hesaplayıp tabloya 216,998 olarak hesaplıyor
hesaplama kodunun
Me.tutarı = Round((Me.satfıyatı * Me.mıktar * Me.kdv / 100), 2) + Me.satfıyatı * Me.mıktar
şeklinde değiştirilmesi gerekli,
hesaplarkan round..... 2 yazdığm için yuvarlamayı hesaplarken yapacak ve yuvarlanmış olarak kaydedecek.
bu kodu uygulayıp deneyin, sonuç hakkında bilgi verin. Eksik/fazla olayına bakarız.
Adı Soyadı:
Oz.... Ak....
Konum:
Denizli
Ofis Versiyonu:
Ofis 2016 64 Bit
Son Oturumu:
27/10/2025,14:59
Cevapla