VBA da 2 tarih arasında hesap türüne göre işlemlerin toplamını alacak kodu maalesef yapamıyorum. En son bu şekilde kaldı.

'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] ")

Formun üzerindeki giderToplami_TXT alanına sadece 
Sadece  o günün işlem toplamlarını aldırayım belki ordan tür uyuşmazlığını daha kolay çözerim dedim oda olmadı.

Private Sub Form_Current()



Me.TF_HesapHareketleriGiderAF.Requery

Me.TF_HesapHareketleriGelirAF.Requery

                                                                 ' "[tarih]= " & clng(Me.Metin1)

' Me.GiderToplami_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[tarih]= " & clng(Me.Tarih_TXT)")

' Me.GiderToplami_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= #" & Me.Tarih_TXT & "#")

  Me.GiderToplami_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= #" & Tarih_TXT & "#")

  

' "[tarih]= " & clng(Me.Metin1)

'Formdaki Tarih Alani için (VBA'da)

'Kod:

' Dlookup ("Alan Adi", "Tablo veya Sorgu Adi", "Kriter=#" & forms!FormAdi!Formdaki Kontrolün Adi3 & "#")

' Dlookup ("CikanTutar", "T_HesapHareketleri", "Tarih=#" & forms!F_IsletmeDefteri!Me.Tarih_TXT & "#")







'  "Tarih=#" & forms!F_IsletmeDefteri!Tarih_TXT & "#")

'  "#CLng([Tarih_TXT])#")

'   [Tarih] = " & clng(txtTarih))"

'  "[Tarih] = #" & Me.Tarih_TXT & "#")



End Sub