Q re copying Recorset

[Dick Penny]

I have abstracted several lines below from a "copying recordset example." If
typos, please bear with me.
My Q is, what is "ResID", a field name in old/first recordset? If so, how
does this copy the whole record?
I thought one had to enumerate the fields to be copied?

Do While Not OldRes.EOF
Addit:
NewRes.AddNew
NewRes![ResID] = OldRes![ResID]
NewRes.Update
DoEvents
Msgbox "blah blah blah"
Loop
Msgbox "blah#2 blah#s"
OldRes.Close
NewRes.Close
db.Close
((no comments about not copying & pasting, please))

 

[Dirk Goldgar]

I have abstracted several lines below from a "copying recordset
example." If typos, please bear with me.
My Q is, what is "ResID", a field name in old/first recordset?

Yes. Presumably it's the primary key field, but in principle it's just
some field in the recordsets.

If so, how does this copy the whole record?

It doesn't, unless there's only the one field in the recordset. If this
was given as an example, the author should probably have included a
comment along the lines of

' ... repeat similarly for other fields ...

I thought one had to enumerate the fields to be copied?

One does, either by name or, if the recordsets are identical in
structure, by looping through the Fields collection.

 

[ALESSANDRO Baraldi]

I have abstracted several lines below from a "copying recordset example." If
typos, please bear with me.
My Q is, what is "ResID", a field name in old/first recordset? If so, how
does this copy the whole record?
I thought one had to enumerate the fields to be copied?

Do While Not OldRes.EOF
Addit:
NewRes.AddNew
NewRes![ResID] = OldRes![ResID]
NewRes.Update
DoEvents
Msgbox "blah blah blah"
Loop
Msgbox "blah#2 blah#s"
OldRes.Close
NewRes.Close
db.Close
((no comments about not copying & pasting, please))

Yes ResID is Filed Name in Old and New recordset.
If you have more than one Field you must cilce trought Fields
collection each Record.

dim fld as DAO.Field
Do While Not OldRes.EOF
Addit:
NewRes.AddNew
for each fld in NewRes.Fields
NewRes.Fields(fld.name)=OldRes.Fileds(fld.name) 'I presume they
have the same name
Next
NewRes.Update
DoEvents
'Msgbox "blah blah blah"
Loop
Msgbox "blah#2 blah#s"
OldRes.Close
NewRes.Close
db.Close


Hi.

Alessanrdro(IT)