Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

access hesaplama modülü

wave41
wave41
Access Cevaplanmış Soruları
6
4735

access hesaplama modülü

Çözüldü #1
wave41
Üye
wave41
Bul
Üye
Adı Soyadı:
Konum: Kocaeli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 27/04/2012,11:05
Yorumları: 19
Konuları: 4
Kayıt Tarihi: 28/09/2010
Teşekkür Puanı: 0
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
Kur@l
AccessTR.Net
Kur@l
Bul
Uzman
Adı Soyadı:
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 23/03/2025,01:30
Yorumları: 2.048
Konuları: 59
Kayıt Tarihi: 05/11/2008
Teşekkür Puanı: 1.663
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
wave41
Üye
wave41
Bul
Üye
Adı Soyadı:
Konum: Kocaeli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 27/04/2012,11:05
Yorumları: 19
Konuları: 4
Kayıt Tarihi: 28/09/2010
Teşekkür Puanı: 0
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
Kur@l
AccessTR.Net
Kur@l
Bul
Uzman
Adı Soyadı:
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 23/03/2025,01:30
Yorumları: 2.048
Konuları: 59
Kayıt Tarihi: 05/11/2008
Teşekkür Puanı: 1.663
Ekteki örneği inceleyiniz.
İskonto her iki satırdada düşüldüğünden hatalı olmuş düzeltildi.
.zip AAA_kur@l.zip (Dosya Boyutu: 29,63 KB | İndirme Sayısı: 22)
Cevapla
Çözüldü #5
wave41
Üye
wave41
Bul
Üye
Adı Soyadı:
Konum: Kocaeli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 27/04/2012,11:05
Yorumları: 19
Konuları: 4
Kayıt Tarihi: 28/09/2010
Teşekkür Puanı: 0
TEŞEKKÜRLER ŞİMDİ OLDU.ELİNİZE SAĞLIK.
Cevapla
Çözüldü #6
Puletin
Onursal Üye
Puletin
Bul
Onursal Üye
Adı Soyadı:
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 24/12/2016,00:18
Yorumları: 1.717
Konuları: 40
Kayıt Tarihi: 01/11/2008
Teşekkür Puanı: 416 
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