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