KAR Formunu şöyle çözdüm ama anlamadığım bi şekilde kar formu acılınca kasıyor pc

Private Sub Komut11_Click()

Me.metin1 = Nz(DSum("m_kira", "muhasebe", "m_tarih=#" & Format(Me.Metin3, "mm\/dd\/yyyy") & "#"), 0)

Me.Metin7 = Nz(DSum("m_ortakgider", "muhasebe", "m_tarih=#" & Format(Me.Metin3, "mm\/dd\/yyyy") & "#"), 0)

Me.Metin9 = Nz(DSum("genel_toplam", "0ortak_giderler_srg"), 0)

Me.sufark = Dlookup ("sufark", "deneme1", "m_tarih=#" & Format(Me.Metin3, "mm\/dd\/yyyy") & "#")

Me.elektrikfark = Dlookup ("elektrikfark", "deneme1", "m_tarih=#" & Format(Me.Metin3, "mm\/dd\/yyyy") & "#")

Me.dogalgazfark = Dlookup ("dogalgazfark", "deneme1", "m_tarih=#" & Format(Me.Metin3, "mm\/dd\/yyyy") & "#")

Me.reklam = Dlookup ("reklam", "deneme1", "m_tarih=#" & Format(Me.Metin3, "mm\/dd\/yyyy") & "#")

Me.cpayi = Dlookup ("cpayi", "deneme1", "m_tarih=#" & Format(Me.Metin3, "mm\/dd\/yyyy") & "#")

Me.diger = Dlookup ("diger", "deneme1", "m_tarih=#" & Format(Me.Metin3, "mm\/dd\/yyyy") & "#")

Me.Metin14 = Me.metin1 + Me.Metin7 + Me.reklam + Me.cpayi + Me.diger - (Me.sufark + Me.elektrikfark + Me.dogalgazfark + Me.Metin9)

End Sub