I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
