Overførsel af tabel

Jeg har lavet noget lignende da jeg skulle rydde op i en gammel db.
Jeg antager at din gamle tabel er opbygget således:
ID (felt0)
Instruktør (felt1)
Kursist1 (felt2)
Kursist2 (felt3)
osv...

Hvis vi nu siger din nye tabel er opbygget således:
ID (felt 1), Instruktør (felt 2), Kursist (felt 3)

Kør så følgende, hvor du har rettet xx til det antal kolonner der er i din gamle tabel. (Kolonnenumrene er 0-baserede, derfor xx-1. Jeg regner med at kolonne nr. 3 i din gamle tabel er den med det første kursistnavn - hvis det er nr. 2 skal der står i=1).

--------
Sub NyTabel()
Dim db As Database
Dim rsGamle As Recordset
Dim rsNye As Recordset
Dim i As Long

Set db = CurrentDb()
Set rsGamle = db.OpenRecordset("SELECT * FROM GammelTabel")
Set rsNye = db.OpenRecordset("SELECT * FROM NyTabel")

Do While Not rsGamle.EOF
        For i = 2 To xx-1
            rsNye.AddNew
                rsNye!Instruktør = rsGamle!Instruktør
                rsNye!Kursist = rsGamle.Fields(i)
            rsNye.Update
            rsNye.Movenext
    Next
    rsGamle.MoveNext
Loop
Set rsGamle = Nothing
End Sub


Sig til hvis det ikke virker.

Hvordan indsætter jeg dette i access..?

Når du er i Access så tryk alt+F11 for at åbne VB-editoren - er du vant til at bruge denne?
Vælg så Insert>Module
Klip og klister teksten fra og med "Sub.." til "End Sub" ind i modulet.

Nederst i VB-editoren i "Immediate"-vinduet skriver du : NyTabel og trykker Enter.
Lad mig høre hvordan det går.

Lille rettelse - brug dette:


Sub NyTabel()
Dim db As Database
Dim rsGamle As Recordset
Dim rsNye As Recordset
Dim i As Long

Set db = CurrentDb()
Set rsGamle = db.OpenRecordset("SELECT * FROM GammelTabel")
Set rsNye = db.OpenRecordset("SELECT * FROM NyTabel")

Do While Not rsGamle.EOF
        For i = 2 To xx - 1
            rsNye.AddNew
                rsNye!Instruktør = rsGamle!Instruktør
                rsNye!Kursist = rsGamle.Fields(i)
            rsNye.Update
    Next
    rsGamle.MoveNext
Loop
Set rsGamle = Nothing
End Sub

Husk at ordet "GammelTabel" og "NyTabel" skal skiftes med dine tabelnavne.

Den finder en fejl:

"Compile error    - User-defined type not defined"

Den markerer samtidig "db As Database" i linie 3

ok - skift linjerne:
Dim db As Database
Dim rsGamle As Recordset
Dim rsNye As Recordset

med

Dim db As DAO.Database
Dim rsGamle As DAO.Recordset
Dim rsNye As DAO.Recordset

nej vent lidt - du skal nok ind i Tools > References
rul ned på listen og find Microsoft DAO 3.6 Object Library og afkryds den og prøve igen.

Beklager samme fejl...

fik du det sidste med?

hvis ikke det virker, så send den til mig på jesperfjoelner@hotmail.com (husk at zippe den). Så gør jeg den lige klar og du får den tilbage.

nej det gjorde jeg ikke, og det hjalp - virker perfekt

men lige et tillægspørgssmål:

jeg har en anden tabel som er resultatet fra noget .asp med følgende felter:

ID (felt0)
Instruktør (felt1)
Kursist1 (felt2)
Sted1 (felt3)
Kursist2 (felt4)
Sted2 (felt5)
Kursist3 (felt6)
Sted3 (felt7)

Altså hvor Kursist1 passer sammen med Sted1, men hvor der altså kun er 3 kursister pr. post.

Kan jeg lave noget tilsvarende som herover, altså hvor den nye tabel kommer til at se sådan her ud:

ID (felt 1), Instruktør (felt 2), Kursist (felt 3), Sted (felt 4)

ja da, lige et øjeblik...

Prøv at se om dette virker (7 er antallet af kolonne med start på 0):

Sub NyTabel()
Dim db As Database
Dim rsGamle As Recordset
Dim rsNye As Recordset
Dim i As Long
Dim k As Long

Set db = CurrentDb()
Set rsGamle = db.OpenRecordset("SELECT * FROM GammelTabel")
Set rsNye = db.OpenRecordset("SELECT * FROM NyTabel")
Do While Not rsGamle.EOF
    k = 3
    For i = 2 To 7 Step 2
        rsNye.AddNew
            rsNye!Instruktør = rsGamle!Instruktør
            rsNye!Kursist = rsGamle.Fields(i)
            rsNye!Sted = rsGamle.Fields(k)
        rsNye.Update
        k = k + 2
    Next
    rsGamle.MoveNext
Loop
Set rsGamle = Nothing
End Sub

Lign. fejl som opstod før, rettede linierne

Dim db As Database
Dim rsGamle As Recordset
Dim rsNye As Recordset

med

Dim db As DAO.Database
Dim rsGamle As DAO.Recordset
Dim rsNye As DAO.Recordset

men fik nu en ny fejl:

"Run-time error "3265'    - Elementet blev ikke fundet i denne samling.

ved hvilken linje stopper den? prøv at holde musen hen over værdierne i og k - hvad er de?
Prøv at tjekke din tabel - hvor meget nåede den at lave før den stoppede?
Du har referencen til DAO 3.6 i Tools > References? Det kører umiddelbart her.

Fandt fejlen, bare en dumme-fejl

Alt virker som det skal..

Tak for hjælpen og hermed dine point! :)

Jo tak - held og lykke med det. Jeg havde en database med 30-40 tabeller som blev normaliseret til ca 5. tabeller med de par tricks.