(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.