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

Me.GiderToplamı_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & " And [HesapTuru]='" & [HesapTuru_CBO] & "'")

Aşağıdaki kodu dener misiniz?

Me.HesapBakiyesi_TXT = Dsum ("GirenTutar", "T_HesapHareketleri", "[HesapTuru]='" & Me.HesapTuru_CBO & _

                            "' and (Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & _

                            " And " & CLng(Tarih_TXT) - 1 & ")") - Dsum ("CikanTutar", "T_HesapHareketleri", "[HesapTuru]='" & _

                              Me.HesapTuru_CBO & "' and (Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & _

                              " And " & CLng(Tarih_TXT) - 1 & ")")

Oğuz bey karmaşık işlemlerde en uygunu adım adım gitmektir :
1 - fonksiyon temel haliyle denenir

x1 = Dsum ("GirenTutar", "T_HesapHareketleri") '1. Adım kritersiz

2 - sonraki adımda 2 farklı kriteri tek tek denersiniz

x2 = Dsum ("GirenTutar", "T_HesapHareketleri", "[HesapTuru]='" & Me.HesapTuru_CBO & "'") '2. ve 3. adımlarda tek tek kriter denenir

x3 = Dsum ("GirenTutar", "T_HesapHareketleri", "Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & " And " & CLng(Tarih_TXT) - 1)

3 - son adımda ayrı ayrı kontrol edilen kriterler ihtiyaca göre ve/veya ile birleştirilir

xSon = Dsum ("GirenTutar", "T_HesapHareketleri", "[HesapTuru]='" & Me.HesapTuru_CBO & "' and (Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & " And " & CLng(Tarih_TXT) - 1 & ")") - Dsum ("CikanTutar", "T_HesapHareketleri", "[HesapTuru]='" & Me.HesapTuru_CBO & "' and (Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & " And " & CLng(Tarih_TXT) - 1 & ")")

(12/03/2020, 00:53)ozanakkaya yazdı:

Me.GiderToplamı_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & " And [HesapTuru]='" & [HesapTuru_CBO] & "'")

Ozan Bey Çok teşekkür ederim Bu bölümde Gider toplamında giderin hangi hesap türünden ödendiğinin bir önemi olmadığından bana sadece form üstündeki Tarihe Göre Çıkan tutar alanının  toplamı lazım bu yüzden hesap turu alanını koddan çıkardığımda 4 türlü yazdım ama son 2 sinde yazım hatası vermemesine rağmen kod çalıştığında hepsinde hataya düşüyor.

Option Compare Database

Option Explicit





Private Sub Form_Current()



Me.TF_HesapHareketleriGiderAF.Requery

Me.TF_HesapHareketleriGelirAF.Requery

 

'Me.GiderToplamý_TXT = Dsum ("[CikanTutar]","T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & "And [HesapTuru]='" & [HesapTuru_CBO] & "'")

'Me.GiderToplamý_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & )

'Me.GiderToplamý_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & ")

 Me.GiderToplamý_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & "'")

    GiderToplamý_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & "'")





End Sub

Değer stringse tek tırnak ekleniyor ınteger ise çift tırnak bunu anladım ama tarih hep çift tırnak içinde yazılıyor. Ölçüt bölümününde  2 çift tırnak arasına yazılması lazım ama Tarih bölümü başlangıcı "[Tarih]= " &  2 çift tırnak içine yazılınca gerisi karışıyor. Kodu Parantezle de kapatmak şart.
Burda yapılması gereken nedir ve işlemin mantığını açıklarsanız çok makbule geçecek. Okuduğum her yerde Türkçe Tarih formatından dolayı Accessde bu tarz sorunların yaşandığı söyleniyor. SN.@alpeki99 un Vba derslerinde Dlookup konusunu anlatırken Tarih konusunda  kullandığı FECAAT kelimesi benim için az bile söylemiş dedirtiyor.  Çok teşekkür ederim yardımlarınız için.

Sadece tarih:

Me.GiderToplamı_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]))

(12/03/2020, 09:44)berduş yazdı: Aşağıdaki kodu dener misiniz?

Me.HesapBakiyesi_TXT = Dsum ("GirenTutar", "T_HesapHareketleri", "[HesapTuru]='" & Me.HesapTuru_CBO & _

                            "' and (Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & _

                            " And " & CLng(Tarih_TXT) - 1 & ")") - Dsum ("CikanTutar", "T_HesapHareketleri", "[HesapTuru]='" & _

                              Me.HesapTuru_CBO & "' and (Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & _

                              " And " & CLng(Tarih_TXT) - 1 & ")")

Oğuz bey karmaşık işlemlerde en uygunu adım adım gitmektir :
1 - fonksiyon temel haliyle denenir

x1 = Dsum ("GirenTutar", "T_HesapHareketleri") '1. Adım kritersiz

2 - sonraki adımda 2 farklı kriteri tek tek denersiniz

x2 = Dsum ("GirenTutar", "T_HesapHareketleri", "[HesapTuru]='" & Me.HesapTuru_CBO & "'") '2. ve 3. adımlarda tek tek kriter denenir

x3 = Dsum ("GirenTutar", "T_HesapHareketleri", "Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & " And " & CLng(Tarih_TXT) - 1)

3 - son adımda ayrı ayrı kontrol edilen kriterler ihtiyaca göre ve/veya ile birleştirilir

xSon = Dsum ("GirenTutar", "T_HesapHareketleri", "[HesapTuru]='" & Me.HesapTuru_CBO & "' and (Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & " And " & CLng(Tarih_TXT) - 1 & ")") - Dsum ("CikanTutar", "T_HesapHareketleri", "[HesapTuru]='" & Me.HesapTuru_CBO & "' and (Tarih Between " & CLng(DateSerial(Year(Me.Tarih_TXT), 1, 1)) & " And " & CLng(Tarih_TXT) - 1 & ")")

Sn.@berduş inanın aynen dediğiniz gibi yaptım ama işaretlere görevlerine ve anlamlarına tam vakıf olmayınca o kadar denemeden sonra bir noktada klavyeyi kırasım geldi. Neyse çok teşekkür ederim sizler sayesinde benim için zor bölümleri bitti sayılır, allah ne muradınız varsa versin.