ADODB.Connection da benzersiz kayıtların toplamı

[hsayar]

ADODB.Connection da benzersiz kayıtların toplamı nasıl alınır?

Sub XXX_Anemos()
UserForm1.Show False:    DoEvents

Dim cn As Object, rs As Object:      Set cn = CreateObject("ADODB.Connection")

cn.Open "Driver={Microsoft Excel Driver (*.xls)};dbq=" & ThisWorkbook.FullName

Set rs = cn.Execute( _
"SELECT DISTINCT BYIL, MYIL, GIDER_TURU, MES_MER " & _
"FROM [LISTE$F4:I65536]" & _
"WHERE BYIL = 2005")

Sheets("TABLOM").[a2].CopyFromRecordset rs
 
rs.Close: cn.Close
Call Kodlar
Unload UserForm1
MsgBox "tamamlandı"
End Sub

kodlarında

Set rs = cn.Execute( _
"SELECT DISTINCT BYIL, MYIL, GIDER_TURU, MES_MER " & _
"FROM [LISTE$F4:I65536]" & _
"WHERE BYIL = 2005")

ifadesine J sütununda yeralan TUTAR başlığının toplamınıda eklemek için

Set rs = cn.Execute( _
'"SELECT DISTINCT BYIL, MYIL, GIDER_TURU, MES_MER, Sum(TUTAR) " & _
'"FROM [LISTE$F4:J65536]" & _
'"WHERE BYIL = 2005")

kodununu kullandım ama hata veriyor doğrusu nedir.

 

[hsayar]

sn anemosun cevabı aşağıdadır

Toplanan alana aynı takma adı verildiğinden oldu galiba.

[LEFT]Set rs = cn.Execute( _
"SELECT DISTINCT BYIL, MYIL, GIDER_TURU, MES_MER, Sum(TUTAR) AS [B]TOP_TUTAR[/B] " & _
"FROM [LISTE$F4:J65536] " & _
"WHERE BYIL = 2005 " & _
"GROUP BY BYIL, MYIL, GIDER_TURU, MES_MER")[/LEFT]