(16/02/2020, 13:23)alicimri yazdı: Daha önce oluşturulmuş "NewQuery" adındaki sorgunun metin kutularından veri alınarak  sqlString i değiştirmek.

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

Sağolunuz denedim çalıştı.
Kolay gelsin.