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