Skip to main content

AccessTr.neT


Çapraz Sorgu Tasarım Moduna Control Ekleme

Çapraz Sorgu Tasarım Moduna Control Ekleme

#10
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Çapraz Sorgu Tasarım Moduna Control Ekleme - Yazar: feraz - 16/02/2020, 15:05
Task