Kodları Vba da yazmak bana fiziki olarak daha kolay geliyor. O yüzden Vba da yazmaya çalıştım.  Koddaki noktalı virgülleri virgül ile değiştirdim ölçütü uyguladım fakat hata alıyorum. Hatalarım nelerdir. Teşekkürler.

Private Sub HesapTuru_CBO_AfterUpdate()

Me.TF_HesapHareketleriGiderAF.Requery

Me.TF_HesapHareketleriGelirAF.Requery

Me.HesapBakiyesi_TXT = (DSum("[GirenTutar]","T_HesapHareketleri","Tarih Between " & CLng(DateSerial(Year([Tarih_TXT]);1;1)) & " And " & CLng([Tarih_TXT])-1),"[HesapTuru]=" & [Formlar]![F_IsletmeDefteri]![HesapTuru_CBO] & "-DSum("[CikanTutar]","T_HesapHareketleri","Tarih Between " & CLng(DateSerial(Year([Tarih_TXT]);1;1)) & " And " & CLng([Tarih_TXT])-1),"[HesapTuru]=" & [Formlar]![F_IsletmeDefteri]![HesapTuru_CBO] & "))