Copying all rows from basketContent to basketsContent h3llz 12/10/2008 10:37:00 AM If QryDat.BOF = False And QryDat.EOF = False Then QryDat.MoveFirst Part of my script, but i dont know how to loop to get all the rows in basketContent, how can i find out how many rows returned ?

Re: Copying all rows from basketContent to basketsContent Tom van Stiphout <tom7744.no.spam[ at ]cox.net> 12/10/2008 2:12:46 PM On Wed, 10 Dec 2008 02:37:00 -0800, h3llz <h3llz[ at ]discussions.microsoft.com> wrote: IMO copying data is best done with an Append query that takes parameter(s). If you insist in doing it with recordsets: dim rsFrom as dao.recordset dim rsTo as dao.recordset set rsFrom = Currentdb.OpenRecordset(...) set rsTo = Currentdb.OpenRecordset(...) while not rsFrom.EOF rsTo.AddNew rsTo!SomeField = rsFrom!SomeField rsTo!OtherField = rsFrom!OtherField 'etc. rsTo.Update rsFrom.MoveNext wend 'Todo: close objects. -Tom. Microsoft Access MVP [Quoted Text] > If QryDat.BOF = False And QryDat.EOF = False Then > QryDat.MoveFirst > >Part of my script, but i dont know how to loop to get all the rows in >basketContent, how can i find out how many rows returned ?

Re: Copying all rows from basketContent to basketsContent John W. Vinson <jvinson[ at ]STOP_SPAM.WysardOfInfo.com> 12/10/2008 5:47:28 PM On Wed, 10 Dec 2008 02:37:00 -0800, h3llz <h3llz[ at ]discussions.microsoft.com> wrote: [Quoted Text] > how can i find out how many rows returned ? Either qryDAT.MoveLast Debug.Print qryDat.RecordCount or Debug.Print DCount("*", "qryDat") <without opening the query at all> -- John W. Vinson [MVP]