Skip to main content

AccessTr.neT


Metin Kutularında Kdv Tutarını Göstermek

Metin Kutularında Kdv Tutarını Göstermek

Çözüldü #1
Merhaba Arkadaşlar.

Eklediğim uygulamada aşağıdaki kodlarla FaturaDetay Formundaki metin kutularında Kdv matrahını Kdv tutarını ve toplamları göstermeye çalışıyorum. Satıs formunda faturalı satış yaptığım zaman ilk girdiğim satırdaki Kdv oranına göre hesaplama yapıyor ve FaturaDetay Metin kutularında gösteriyor. İlk satırdan sonra giriş yapıp kayıt ettiğim verileri FaturaDetay MatrahSekiz, MatrahOnSekiz, KdvSekiz, KdvOnSekiz metin kutularında göstermiyor. 

Sub HesapYap()
Dim YuzdeOnsekiz, YuzdeSekiz As String

YuzdeSekiz = Nz(DSum("[Tutari]", "FaturaDetay", "[FaturaID]= " & Nz([FaturaID], 0) & " And [KdvOrani]= 8"), 0)
YuzdeOnsekiz = Nz(DSum("[Tutari]", "FaturaDetay", "[FaturaID]= " & Nz([FaturaID], 0) & " And [KdvOrani]= 18"), 0)

Me.MatrahSekiz = Round(YuzdeSekiz, 2)

Me.MatrahOnSekiz = Round(YuzdeOnsekiz, 2)

Me.Toplam = MatrahSekiz + MatrahOnSekiz

Me.KdvSekiz = Round(MatrahSekiz * 0.08, 2)

Me.KdvOnSekiz = Round(MatrahOnSekiz * 0.18, 2)

Me.Yekun = MatrahSekiz + MatrahOnSekiz + KdvSekiz + KdvOnSekiz


'ATOZ:
Me.MatrahSekiz = IIf(Me.MatrahSekiz = 0, "", Me.MatrahSekiz)
Me.MatrahOnSekiz = IIf(Me.MatrahOnSekiz = 0, "", Me.MatrahOnSekiz)
Me.Toplam = IIf(Me.Toplam = 0, "", Me.Toplam)
Me.KdvSekiz = IIf(Me.KdvSekiz = 0, "", Me.KdvSekiz)
Me.KdvOnSekiz = IIf(Me.KdvOnSekiz = 0, "", Me.KdvOnSekiz)
Me.Yekun = IIf(Me.Yekun = 0, "", Me.Yekun)

Recalc
End Sub

[Resim: do.php?imgf=152983442770981.png]
.rar MALZEME SATIŞI.rar (Dosya Boyutu: 965,73 KB | İndirme Sayısı: 6)
Cevapla
#2
Her yeni kayıttı, alt formda önceki girilen verilerin görünmesi normal mi?
Cevapla
#3
(24/06/2018, 16:34)ozanakkaya yazdı: Her yeni kayıttı, alt formda önceki girilen verilerin görünmesi normal mi?

Hocam Atl formdaki  verileri Kdv oranına göre MatrahSekiz, MatrahOnSekiz, Toplam, KdvSekiz, KdvOnSekiz ve Yekun metin kutularında toplam olarak görünmesini istiyorum. Bir Faturada birden fazla kalem giriyoruz ve kdv olanlarında deşişik oluyor. 
Her yeni satış butonuna tıkladığım zaman Alt Formdaki verileri temizleyeceğim ve yeni girdiğim fatura bilgileri görünecek.
Son Düzenleme: 24/06/2018, 16:53, Düzenleyen: m_demir.
Cevapla
#4
Merhaba, alt forma eklediğin her verinin fatura_id değeri farklı. Kodda Dsum içerisine kriter olarak fatura_id ekler isen sadece seçili satıra ait toplamı görebilirsin.

Alt Forma eklediğin HesapYap kodunun tamamını sil, bu kodu çağırdığın kodları da sil.


Satıs isimli forma


Sub YeniHesap()
Dim YuzdeOnsekiz, YuzdeSekiz As String

YuzdeSekiz = Nz(DSum("[Tutari]", "FaturaDetay", "[KdvOrani]= 8"), 0)
YuzdeOnsekiz = Nz(DSum("[Tutari]", "FaturaDetay", "[KdvOrani]= 18"), 0)



[FaturaDetay].Form!MatrahSekiz = Round(YuzdeSekiz, 2)

[FaturaDetay].Form!MatrahOnSekiz = Round(YuzdeOnsekiz, 2)

[FaturaDetay].Form!Toplam = [FaturaDetay].Form!MatrahSekiz + [FaturaDetay].Form!MatrahOnSekiz

[FaturaDetay].Form!KdvSekiz = Round([FaturaDetay].Form!MatrahSekiz * 0.08, 2)

[FaturaDetay].Form!KdvOnSekiz = Round([FaturaDetay].Form!MatrahOnSekiz * 0.18, 2)

[FaturaDetay].Form!Yekun = [FaturaDetay].Form!MatrahSekiz + [FaturaDetay].Form!MatrahOnSekiz + [FaturaDetay].Form!KdvSekiz + [FaturaDetay].Form!KdvOnSekiz


ATOZ:
'Me.MatrahSekiz = IIf(Me.MatrahSekiz = 0, "", Me.MatrahSekiz)
'Me.MatrahOnSekiz = IIf(Me.MatrahOnSekiz = 0, "", Me.MatrahOnSekiz)
'Me.Toplam = IIf(Me.Toplam = 0, "", Me.Toplam)
'Me.KdvSekiz = IIf(Me.KdvSekiz = 0, "", Me.KdvSekiz)
'Me.KdvOnSekiz = IIf(Me.KdvOnSekiz = 0, "", Me.KdvOnSekiz)
'Me.Yekun = IIf(Me.Yekun = 0, "", Me.Yekun)

'Recalc
End Sub


Kodu ekle, Satis isimli formun geçerli olduğunda olayına da


YeniHesap

Kodu ekle
Cevapla
#5
Çok çok teşekkürler Hocam ellerinize sağlık. 

Hocam Alt form da satır sildiğimiz  zaman YeniHesap kodu çalışmıyor.  YeniHesap kodunu Alt Formda satır sildiğimiz zaman nasıl çalıştırabiliriz.
Cevapla
#6
FaturaDetay isimli forma

Sub YeniHesap()
Dim YuzdeOnsekiz, YuzdeSekiz As String

YuzdeSekiz = Nz(DSum("[Tutari]", "FaturaDetay", "[KdvOrani]= 8"), 0)
YuzdeOnsekiz = Nz(DSum("[Tutari]", "FaturaDetay", "[KdvOrani]= 18"), 0)

Me.MatrahSekiz = Round(YuzdeSekiz, 2)

Me.MatrahOnSekiz = Round(YuzdeOnsekiz, 2)

Me.Toplam = Me.MatrahSekiz + Me.MatrahOnSekiz

Me.KdvSekiz = Round(Me.MatrahSekiz * 0.08, 2)

Me.KdvOnSekiz = Round(Me.MatrahOnSekiz * 0.18, 2)

Me.Yekun = Me.MatrahSekiz + Me.MatrahOnSekiz + Me.KdvSekiz + Me.KdvOnSekiz


ATOZ:
'Me.MatrahSekiz = IIf(Me.MatrahSekiz = 0, "", Me.MatrahSekiz)
'Me.MatrahOnSekiz = IIf(Me.MatrahOnSekiz = 0, "", Me.MatrahOnSekiz)
'Me.Toplam = IIf(Me.Toplam = 0, "", Me.Toplam)
'Me.KdvSekiz = IIf(Me.KdvSekiz = 0, "", Me.KdvSekiz)
'Me.KdvOnSekiz = IIf(Me.KdvOnSekiz = 0, "", Me.KdvOnSekiz)
'Me.Yekun = IIf(Me.Yekun = 0, "", Me.Yekun)

'Recalc
End Sub

Kodunu ekle, 

Sil butonuna YeniHesap kodu ekle.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task