bahsettiğiniz talebinize yönelik olarak;
her ne kadar sayın ozan bey tarafından paylaşımda bulunulsa da (kendilerinin de hoş görüsüne sığınaraktan cevabınızı beklemek gerekli ise de),kendi adıma geçerli olmak sureti ile eklediğiniz örnek uygulamayı inceleme imkanım yetersizlik gerekçesi ile söz konusu olmadı fakat eklediğiniz resim üzerinden incelediğim esnada not aldığım halini içerecek şekilde naçizane ben de alternatif bir çözüm önerisinde bulunmak üzere paylaşmak isterim.
Dim glr, gdr, snc
glr = Format(Nz(DSum("[gelir_alan_adi]", "KASA_" & Format(DateAdd("yyyy", -1, Date), "yyyy")), 0), "currency")
gdr = Format(Nz(DSum("[gider_alan_adi]", "KASA_" & Format(DateAdd("yyyy", -1, Date), "yyyy")), 0), "currency")
snc = glr - gdr
Me.devredilecek_kasaadi_denetiminin_adi = "KASA_" & Format(DateAdd("yyyy", -1, Date), "yyyy")
Me.olusturulacak_yenikasa_adi = "KASA_" & Format(Date, "yyyy")
Me.devredilecek_tutar_denetiminin_adi = IIf(snc = 0, 0, IIf(snc > 0, glr, gdr))
yukarıdaki kodları,ilgili formun YÜKLENDİĞİNDE olay yordamı içerisine dahil etmek sureti ile kullanmayı deneyiniz.
bilginize...iyi çalışmalar,saygılar.