Daten in unregelmäßigen Spalten
maikh1
Gesendet: 01.06.12 14:55
Betreff: RE: Daten in unregelmäßigen Spalten


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.
Top of the page Bottom of the page