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.