access hesaplama modülü - Baskı Önizleme

access hesaplama modülü - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: access hesaplama modülü (/konu-access-hesaplama-modulu.html)

Sayfalar: 1 2

access hesaplama modülü - wave41 - 27/09/2011

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.

Cvp: access hesaplama modülü - Kur@l - 27/09/2011

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

Cvp: access hesaplama modülü - wave41 - 27/09/2011

Kod:

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



Private Sub PSF_AfterUpdate()

Dim hesapla

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

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

End Sub

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

Kod:

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

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

Kod:

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

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

Cvp: access hesaplama modülü - Kur@l - 27/09/2011

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

Cvp: access hesaplama modülü - wave41 - 27/09/2011

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

Cvp: access hesaplama modülü - Puletin - 27/09/2011

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