Merhaba, kodları hata bloğuna yazarsanız çalışmaz. Ben üst mesajımda 

Sub YeniHesap()

ile başlayan, End Sub ile biten kod ekledim, sil butonuna da YeniHesap kodu eklemenizi yazdım.

Önceki mesajda belirttiğim 

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 ekleyin, 

Sil butonuna eklediğiniz kodları silin,

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Kodunun altına

YeniHesap

kodu ekleyin.