smid denne i et modul og kør den efter at den er rettet til.
Den nye tabel skal være oprettet først med 2 kolonner
Public Sub Transpose() DoCmd.SetWarnings False Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Forespørgsel3") ' ret til din forespørgsel I = 1 For Each fld In rst.Fields Værdi = rst.Fields(I) strsql = "Insert into Nytabel Values (" & I & ",'" & Værdi & "');" ' ret Nytabel til din nye tabel DoCmd.RunSQL strsql I = I + 1 Next
rst.Close Set rst = Nothing DoCmd.SetWarnings True End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
