önce aşağıdaki gibi bir çapraz sorgu oluşturup, adı
xCpr olsun
TRANSFORM Count(xUn.xVeri) AS SayxVeri
SELECT xUn.xTarih, xUn.[Veri Adı]
FROM Hata INNER JOIN (SELECT Int([tarih]) AS xTarih, 'veri1' as [Veri Adı], [veri1] AS xVeri FROM Veri
union All
SELECT Int([tarih]) AS xTarih, 'veri2' as [Veri Adı], [veri2] AS xVeri FROM Veri
union All
SELECT Int([tarih]) AS xTarih, 'veri3' as [Veri Adı], [veri3] AS xVeri FROM Veri
union All
SELECT Int([tarih]) AS xTarih, 'veri4' as [Veri Adı], [veri4] AS xVeri FROM Veri
union All
SELECT Int([tarih]) AS xTarih, 'veri5' as [Veri Adı], [veri5] AS xVeri FROM Veri
union All
SELECT Int([tarih]) AS xTarih, 'veri6' as [Veri Adı], [veri6] AS xVeri FROM Veri
) AS xUn ON Hata.kod = xUn.xVeri
GROUP BY xUn.xTarih, xUn.[Veri Adı]
PIVOT xUn.xVeri;
sonrada aşağıdaki kodu bir düğmeye atayıp dener misiniz?
Sub xVeriEkle() ' 1, 3, 13, 108, 114, 132, 136, 140
Set db = CurrentDb()
Set rs = db.OpenRecordset("xCpr")
For x = 2 To rs.Fields.Count - 1
xInsFld = xInsFld & ", [" & rs(x).Name & "]"
Next x
xInsert = " INSERT INTO [Yeni Tablo] ( Tarih, [Veri Adı]" & xInsFld & ") " & _
" SELECT xTarih, [Veri Adı]" & xInsFld & " " & _
" FROM xCpr ;"
CurrentDb.Execute xInsert
End Sub
