Skip to main content

AccessTr.neT


access hesaplama modülü

access hesaplama modülü

Çözüldü #1
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.
.rar AAA.rar (Dosya Boyutu: 773,19 KB | İndirme Sayısı: 22)
Cevapla
Çözüldü #2
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
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
Ekteki örneği inceleyiniz.
İskonto her iki satırdada düşüldüğünden hatalı olmuş düzeltildi.
.zip [email protected] (Dosya Boyutu: 29,63 KB | İndirme Sayısı: 22)
Cevapla
Çözüldü #5
TEŞEKKÜRLER ŞİMDİ OLDU.ELİNİZE SAĞLIK.
Cevapla
Çözüldü #6
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...
.rar AAA.rar (Dosya Boyutu: 763,89 KB | İndirme Sayısı: 15)
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Son Düzenleme: 27/09/2011, 18:51, Düzenleyen: Puletin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task