access hesaplama modülü
Tarih
27/09/2011 11:19
Konu Sahibi
wave41
Yorumlar
6
Okunma
2526
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ı: 21)
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çö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.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çö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ı: 18)
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
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çö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
  Butonlardaki Hesaplama Kodunu Güncelleme de nasıl yapabiliriz ask200075 6 182 15/11/2016, 12:08 ask200075
  Access Sorguda Yaş ve Yaş Grubu Hesaplama accessdelisi 4 201 31/07/2016, 19:56 ozanakkaya
Brick Microsoft Access Yüklü Olmayan Bilgisayarlarda Access Kullanımı (Runtime) OFA 4 359 20/06/2016, 14:47 OFA
  2 metin kutusundaki verileri başka bir metin kutusuna hesaplattırma hesaplama zorosx5 5 403 24/05/2016, 17:58 atoz112
  Kayıtlarda otomatik hesaplama yaptırma arasson 7 540 20/04/2016, 13:36 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya