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

bluefalcon

Altın Üye
Altın Üye
Katılım
22 Aralık 2005
Mesajlar
418
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
03.12.2025
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.


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

harcanan = toplamH.Fields(0).Value
 

bluefalcon

Altın Üye
Altın Üye
Katılım
22 Aralık 2005
Mesajlar
418
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
03.12.2025
Kod:
DSum("[TRL_AMOUNT]", "EXP_BUDGETS", "[BUTCEYILI] = " & Year(Date) & "")
Yukarıdaki kodu değişkene atayarak çözüme ulaştım. Gelecekte faydası olması umuduyla...
 
Üst