access hesaplama modülü

ekteki Access veritabanında yazılar modülünde psf ve iskonto oranını değiştirince kamu fiyatı otomatik hesaplanıyor ve yazılar tablasonda kamı_fıyatı bölümüne otomatik yazıyor.
bunun gibi aynı modül içinden
bırım_fıyatı=kamu_fiyatı/ambalaj_adedi hesaplamasını da yaptırmak istiyorum.
iskonto oranını güncelleyince hem kamu fiyatını hem de bırım fıyatını güncelleme yaptırmak mümkün müdür.

Kodunuzu aşağıdaki ile değiştirirseniz istediğiniz olur.

Private Sub ISKONTO_ORANI_AfterUpdate()

Dim hesapla

 

Me.KAMU_FİYATI.Value = Me.PSF.Value - (Me.PSF.Value * Me.ISKONTO_ORANI.Value / 100)

Me.BIRIM_FIYATI.Value = (Me.KAMU_FİYATI - (Me.PSF.Value * Me.ISKONTO_ORANI.Value / 100)) / Me.AMBALAJ_ADEDI

End Sub

Kodun bu kısmını istediğiniz olayın içine koyarak bu hesaplamaları yaptırabilirsiniz.

Me.KAMU_FİYATI.Value = Me.PSF.Value - (Me.PSF.Value * Me.ISKONTO_ORANI.Value / 100)

Me.BIRIM_FIYATI.Value = (Me.KAMU_FİYATI - (Me.PSF.Value * Me.ISKONTO_ORANI.Value / 100)) / Me.AMBALAJ_ADEDI

NORMALDE BU KODLARLA KAMU FİYATINI HESAPLATABİLİYORUM.


VERMİŞ OLDUĞUNUZ HESAPTA KAMU FİYATI HESAPLAMASI DOĞRU AMA BİRİM FİYAT HATALI OLMUŞ SANIRIM.


BU ŞEKİLDE HESAPLAMA YAPTIRMAM LAZIM.AMA KODLARI NEREYE EKLERSEM EKLEYEYİM BİR TÜRLÜ HESAPLAMA YAPIP YAZILAR TABLOSUNA BIRIM_FIYAT STUNUNA YAZDIRAMIYORUM.

Ekteki örneği inceleyiniz.
İskonto her iki satırdada düşüldüğünden hatalı olmuş düzeltildi.

TEŞEKKÜRLER ŞİMDİ OLDU.ELİNİZE SAĞLIK.

Private Sub AMBALAJ_ADEDI_AfterUpdate()

Me.BIRIM_FIYATI = Me.KAMU_FİYATI / Me.AMBALAJ_ADEDI

End Sub



Private Sub ISKONTO_ORANI_AfterUpdate()

Dim hesapla

hesapla = (Me.PSF.Value * Me.ISKONTO_ORANI.Value) / 100

Me.KAMU_FİYATI.Value = Me.PSF.Value - hesapla

Me.BIRIM_FIYATI = Me.KAMU_FİYATI / Me.AMBALAJ_ADEDI

End Sub

Private Sub PSF_AfterUpdate()

Dim hesapla

hesapla = (Me.PSF.Value * Me.ISKONTO_ORANI.Value) / 100

Me.KAMU_FİYATI.Value = Me.PSF.Value - hesapla

Me.BIRIM_FIYATI = Me.KAMU_FİYATI / Me.AMBALAJ_ADEDI

End Sub

---

Pardon Kur@l Hocam cevaplamış ben geç gördüm...