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