Hocam FaturaDetay sil butonuna YeniHesap kodunu ekliyorum. Metin kutularında güncelleme olmuyor.
Son Düzenleme: 25/06/2018, 19:38, Düzenleyen: m_demir.
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
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
YeniHesap
kodu ekleyin.