access hesaplama modülü
Tarih
27/09/2011 11:19
Konu Sahibi
wave41
Yorumlar
6
Okunma
2650
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.032
05/11/2008
KONYA
Ofis 2010
Dün,21:23
Çözüldü 
Sponsor Reklam
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
Dün,21:23
Çözüldü 
Sponsor Reklam
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
24/12/2016,00:18
Çözüldü 
Sponsor Reklam

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
  Access 2003 De Yapılan Dosyanın Access 2010 Da Çalıştırılması Kullanıcı Güvenlik Prob keskin78 9 170 14/05/2017, 14:54 keskin78
  En Büyük Sözleşme Tarihi Üzerinden Hesaplama ALTANs 2 64 28/04/2017, 17:37 ALTANs
  Ortalama Hesaplama Hk. ALTANs 3 113 22/04/2017, 23:28 ALTANs
  Wep Access Dosyasını Masaüstü Access Dosyasına Çevirme next 7 273 02/04/2017, 23:36 next
  Ortalama Süreyi Hesaplama husem 4 127 21/02/2017, 01:49 husem


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status