title image


Smiley Ich hab zwar auch den Eindruck, dass du dir dein Leben unnötig schwer ...
... machst - bzw. da eine extrem aufgeblähte Tabelle erzeugst - aber ich denke mal, du suchst so etwas:



Dim N As Node, C As Node

CurrentDb.Execute "DELETE FROM tblErgebnisbaum_Hierarchie"

For Each N In Me!TreeCtrl.Nodes

CurrentDb.Execute "INSERT INTO tblErgebnisbaum_Hierarchie(ID, TeilID) VALUES (" & N.Index & "," & N.Index & ")"

Set C = N.Child

Do Until C Is Nothing

CurrentDb.Execute "INSERT INTO tblErgebnisbaum_Hierarchie (ID, TeilID) VALUES (" & N.Index & "," & C.Index & ")"

Set C = C.Next

Loop

Next N



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: