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. |