Denormalisering af data

For mig at se, skal du ud i en krydstabulering, idet du vil have data både vandret og lodret. På makeITeasy.dk ligger der et eksempel på en dynamisk rapport, der tager højde for et antal variable kolonner.

Er du ikke nød til at lave et loop, som åbner recordsættet og kører igennem. Så for hver id gennemgår du INVxx fra 01 til 126 og laver en insert i et nyt recordsæt, hvis not isnull!~)

mugs / spg > jeg er åben overfor alle forslag :-)

Lige nu kan jeg kun se at UNION JOIN kan give mig et tilfredsstillende resultat, men det er ikke dynamisk ( fremadrettet ved nye tabeller/kolonner )

Denne virker nogenlunde efter hensigten ( blot kun på første række )

Public Sub TransposeII()
DoCmd.SetWarnings False
  Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("qrytest")
  I = 1
    For Each fld In rst.Fields
Værdi = rst.Fields(I)
strsql = "Insert into tbltest Values (" & I & ",'" & Værdi & "');"

  DoCmd.RunSQL strsql
I = I + 1
    Next

rst.Close
Set rst = Nothing
DoCmd.SetWarnings True
End Sub

Hvordan får jeg indsat kolonnenavnet istedet for en talværdi i denne ;

strsql = "Insert into tbltest Values (" & I & ",'" & Værdi & "');"

If you can send me an example of the table and query then I'll see what I can put together
ekspertenATsanthell.dk
AT = @

The final result  :

Public Sub Transpose()
Dim Counter As Integer

    DoCmd.SetWarnings False

    On Error Resume Next
 
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("qrytest")
    Counter = 1

    Do Until rst.EOF
       
        DoCmd.Echo True, "Behandler nu record nr : " & Counter
               
        I = 1
        For Each fld In rst.Fields
       
            HSHUSN = rst.Fields(2)
            HSSÆSO = rst.Fields(3)
       
            HSValueA = fld.Name
            HSValueB = rst.Fields(I)
            strSQL = "Insert into tbltest Values ('" & HSHUSN & "','" & HSSÆSO & "', " & I & ",'" & HSValueA & "','" & HSValueB & "');"
   
            DoCmd.RunSQL strSQL
            I = I + 1
        Next
       
        rst.MoveNext
        Counter = Counter + 1
   
    Loop
   

    rst.Close
    Set rst = Nothing
    DoCmd.SetWarnings True
   
    MsgBox ("Data genereret.")

End Sub

Terry > place an answer please

:o)