Soru VBA ile Access Üzerinden Koşullu Toplam Aldırma

[bluefalcon]

Arkadaşlar merhaba,

Üzerinde çalışmakta olduğum bir projede takıldığım hususu paylaşmak ve fikirlerinizi almak istedim. Aşağıdaki VBA kodu ile bağlandığım Access veritabanında EXP_BUDGETS tablosundaki 2021 yılına ait olan TRL_EXP_AMOUNT rakamlarını toplatarak "harcanan" değişkenine atamak istiyorum.

Nerede hata yaptığımı bilmiyorum ama sütunda ne kadar rakam varsa onları toplayarak "harcanan" değişkenine atama yapıyor. Aslında daha önce farklı bir versiyonunu yaparak sonuç almıştım ancak bunda hatalı olduğum detay nerede bulamadım. Görüşlerinizi paylaşabilirseniz çok memnun olurum. Şimdiden çok teşekkürler.

toplamH.Open "select SUM([TRL_EXP_AMOUNT]) FROM [EXP_BUDGETS] WHERE [BUTCEYILI]= " & Year(Date) & "", AdoCN, 1, 3

harcanan = toplamH.Fields(0).Value

 

[bluefalcon]

DSum("[TRL_AMOUNT]", "EXP_BUDGETS", "[BUTCEYILI] = " & Year(Date) & "")

Yukarıdaki kodu değişkene atayarak çözüme ulaştım. Gelecekte faydası olması umuduyla...