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

Metin Kutularında Kdv Tutarını Göstermek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutularında Kdv Tutarını Göstermek (/konu-metin-kutularinda-kdv-tutarini-gostermek.html)

Sayfalar: 1 2

Metin Kutularında Kdv Tutarını Göstermek - m_demir - 24/06/2018

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]

Cvp: Metin Kutularında Kdv Tutarını Göstermek - ozanakkaya - 24/06/2018

Her yeni kayıttı, alt formda önceki girilen verilerin görünmesi normal mi?

Cvp: Metin Kutularında Kdv Tutarını Göstermek - m_demir - 24/06/2018

(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.

Cvp: Metin Kutularında Kdv Tutarını Göstermek - ozanakkaya - 24/06/2018

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

Cvp: Metin Kutularında Kdv Tutarını Göstermek - m_demir - 24/06/2018

Ç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.

Cvp: Metin Kutularında Kdv Tutarını Göstermek - ozanakkaya - 25/06/2018

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.