Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/09/2011 11:19
Konu Sahibi
wave41
Yorumlar
6
Okunma
2883
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

wave41

Üye
Kullanici Avatari
Üye
19
4
28/09/2010
0
Kocaeli
Ofis 2003
27/04/2012,11:05
Çözüldü 
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.


Ek Dosyalar
.rar   AAA.rar (Dosya Boyutu: 773,19 KB / İndirme Sayısı: 22)
Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
17/10/2017,17:58
Çözüldü 
Kodunuzu aşağıdaki ile değiştirirseniz istediğiniz olur.

Visual Basic Code
1
2
3
4
5
6
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.

Visual Basic Code
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

wave41

Üye
Kullanici Avatari
Üye
19
4
28/09/2010
0
Kocaeli
Ofis 2003
27/04/2012,11:05
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
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

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
17/10/2017,17:58
Çözüldü 
Ekteki örneği inceleyiniz.
İskonto her iki satırdada düşüldüğünden hatalı olmuş düzeltildi.


Ek Dosyalar
.zip   AAA_kur@l.zip (Dosya Boyutu: 29,63 KB / İndirme Sayısı: 19)
Cevapla

wave41

Üye
Kullanici Avatari
Üye
19
4
28/09/2010
0
Kocaeli
Ofis 2003
27/04/2012,11:05
Çözüldü 
TEŞEKKÜRLER ŞİMDİ OLDU.ELİNİZE SAĞLIK.


Cevapla

Puletin


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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...


Ek Dosyalar
.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...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Hesaplama Hk. serkan1985 5 186 22/09/2017, 21:58 biberli33
Çözüldü Hesaplama Hatası Musti_55 6 807 01/06/2017, 00:28 ozanakkaya
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 12 1.012 26/05/2017, 17:17 ozanakkaya
Çözüldü Access 2003 De Yapılan Dosyanın Access 2010 Da Çalıştırılması Kullanıcı Güvenlik Prob keskin78 9 648 14/05/2017, 14:54 keskin78
Çözüldü En Büyük Sözleşme Tarihi Üzerinden Hesaplama ALTANs 2 289 28/04/2017, 17:37 ALTANs

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.