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

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

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

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

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

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.