'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