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