Kod:
Private Sub Komut7_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim SQL As String
SQL = "TRANSFORM sum(say) AS ToplamSay SELECT adı FROM Tablo1 WHERE tarih >= " & CDbl(Metin1.Value) & " And tarih <= " & CDbl(Metin3.Value) & " GROUP BY adı PIVOT tarih"
Set qdf = CurrentDb.QueryDefs("NewQuery")
qdf.SQL = SQL
End Sub