| Also wenn die Struktur immer der Reihenfolge KA_n;KA_n_Text;Menge_n;Dim_n entspricht kannst Du doch eine Schleife programmieren die von 1 bis 20 läuft und dir die Daten in eine neue Tabelle mit nur den oben genannten Feldern schreibt. So in etwa:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsOut As DAO.Recordset
Dim i as Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM DeineAlteTabelle", dbOpenSnapshot)
Set rsOut = db.OpenRecordset("DeineNeueTabelle", dbOpenDynaset)
Do Until rs.EOF
For i = 1 To 20
rsOut.AddNew
rsOut![KA]=rs("KA"&i)
rsOut![KAText]=rs("KA"& i &"Text")
...
rsOut.Update
Next i
Loop
Set rsOut = Nothing
Set rs = Nothing
Set db = Nothing
Die ID kannst Du ja auch noch als zusätzliches Feld mitnehmen. |
