Extreme Veteran
Beiträge: 567
| Hallo,
briane - 25.04.13 14:08
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
MoveNext ist wirkungslos nach AddNew, da du sowieso beim nächsten AddNew einen neuen Datensatz erstellst.
Wenn ich mir das Konstrukt so ansehe, bin ich der Meinung, dass es mit einem einfachen SQL-Statement lösbar sein müsste. Beispiel:
strSQL = " INSERT INTO tabTagungAnmeldungen ( ID, tantagID, tanID ) " & _
" SELECT ID, " & txtTagungsID.Value & " FROM qryTagungsteilnehmer "
dbs.Execute strSQL, dbFailOnError
Da die Herkunft von txtTagungsID.Value in deinen Postings nicht vorkommt, konnte ich sie im Beispiel nur so einbauen. Wenn du den Weg gehen willst und die TagungsID nicht selbst umsetzen kannst, poste die Datenherkunft des Feldes.
----- Gruss - Peter |