(09/02/2020, 14:23)alicimri yazdı: Dosya ekledim, Kodlar fikir verebilir.

PHP Kod:

Private Sub Komut0_Click()
Dim ys As New ADODB.Recordset
SQL = "TRANSFORM NZ(Sum(Tablo1.say))*1 AS Toplasay SELECT Tablo1.adı FROM Tablo1 GROUP BY Tablo1.adı PIVOT Format([tarih],'Short Date');"
ys.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not ys.EOF
For i = 1 To ys.Fields.Count - 1
MsgBox ys.Fields(0) & " " & ys.Fields(i).Name & " tarihinde " & ys.Fields(i) & " Adet"
Next
ys.MoveNext
Loop
End Sub 


Merhaba dosyayı deneyemedim kodlara bakarken dikkatimi

For i = 1 To ys.Fields.Count - 1 
İlk 1 çekti.Normalde en sonda -1 olduğu için ilk 1 yerine 0 olmalı sanki.
Eğer döngü 0 dan başlarsa -1 yazılır diye biliyorum belkide yanlış biliyordurum.Döngü 1 den başlarsa sondaki -1 yazılmamalı.