AccessTr.neT

Arkadaşlar Merhaba,

Veri tablosunda yer alan Veri1,veri2,veri3,veri4,veri5 ve veri6 alanlarında hangi hata kodundan kaç tane olduğunu günlük olarak yeni tabloya insert edilmesini istiyorum. Yeni tablodaki alan adları için hata tablosunda ki kodları kullanmasını istiyorum

Bir türlü yapamadım. Bu konuda yardımcı olursanız çok sevinirim.

Saygılarımla,

ö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

(13/10/2023, 14:23)berduş yazdı: [ -> ]ö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

Hocam elinize sağlık çok güzel oldu.

Peki çapraz sorguda hata kodlarını satırlara veri adlarını sütunlara alırsam, bunu nasıl yeni tabloya insert edebilirim?

neyi hesaplayıp nereye aktarılacağını tam olarak anlamadım? resimdeki zaten eski tablo, yeni tabloya ne aktarılacak?
not: maalesef 1 ay kadar yokum daha fazla yardımcı olamayacağım