Daten aus einem Feld in einer Abfrage in eine Tabelle eintragen
briane
Gesendet: 25.04.13 14:08
Betreff: RE: Daten aus einem Feld in einer Abfrage in eine Tabelle eintragen



Member

Beiträge: 6

Ort: Berlin
Hier ist die Lösung:

--------------------------------------------

While Not rstAnm.EOF

rsttabTagungAnm.AddNew

rsttabTagungAnm.Fields("tantagID").Value = txtTagungsID.Value
rsttabTagungAnm.Fields("tanID").Value = rstAnm.Fields("ID")
rsttabTagungAnm.Update
rstAnm.MoveNext
rsttabTagungAnm.MoveNext

Wend

rsttabTagungAnm.Close
rstAnm.Close

Set rsttabTagungAnm = Nothing
Set rstAnm = Nothing

Set db = Nothing

Das funktioniert jedenfalls.
Top of the page Bottom of the page