access hesaplama modülü
Tarih
27/09/2011 11:19
Konu Sahibi
wave41
Yorumlar
6
Okunma
2601
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.031
05/11/2008
KONYA
Ofis 2010
13/02/2017,14:56
Çö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.031
05/11/2008
KONYA
Ofis 2010
13/02/2017,14:56
Çö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
  Ortalama Süreyi Hesaplama husem 4 63 21/02/2017, 01:49 husem
  Kayıt Kontrol Eksik Verileri Bulma Ve Hesaplama hknct 10 120 11/02/2017, 18:11 hknct
  Belirli tatil günlerini dikkate alarak vade hesaplama Andruil 6 226 06/02/2017, 23:52 Andruil
  gelir vergisi hesaplama yasarguner 6 239 03/02/2017, 10:44 atoz112
  saat ücreti hesaplama dsmelbistan 5 268 12/01/2017, 13:01 atoz112


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