[AccessD] Table does not open to first record

Me too, learn something again you had long forgotten about.

Andy Lacey wrote:

>Chester
>Try inserting
>
>myds.index="yourindexname"
>
>after the Open
>--
>Andy Lacey
>http://www.minstersystems.co.uk
>
>
>
>
>--------- Original Message --------
>From: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>Subject: RE: [AccessD] Table does not open to first record
>Date: 22/08/05 15:57
>
>
>Myds is a table that has been populated in previous code one record at a
>time. When I view my list of tables and double click on the table it
>opens in ascending date order. When I open the table in code it does not
>open on the first record which is the one with the earliest date. Hope
>that makes sense.
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
>Foust
>Sent: Monday, August 22, 2005 10:48 AM
>To: Access Developers discussion and problem solving
>Subject: RE: [AccessD] Table does not open to first record
>
>Sorry but I don't know what you mean by "pull a record in code". Do you
>mean that when you move to the first record in myds, it isn't the
>earliest date in the table? You don't indicate why myds1 is or how it's
>populated either.
>
>Charlotte Foust
>
>
>-----Original Message-----
>From: Kaup, Chester [mailto:Chester_Kaup at kindermorgan.com]
>Sent: Monday, August 22, 2005 8:30 AM
>To: Access Developers discussion and problem solving
>Subject: [AccessD] Table does not open to first record
>
>
>I use the following code to open a table (myds) which is indexed on the
>date field. When I pull a record in code it gets record 127. I tried a
>movefirst command and the table still starts on record 127. Any ideas
>what is happening appreciated.
>
>
>
>Dim MyDb As Database, myds As Recordset
>
>Set MyDb = CurrentDb()
>
>Set myds = MyDb.OpenRecordset("tbl Produced HCPV% One Pattern",
>dbOpenTable)
>
>
>
>myds.MoveFirst
>
>myds1.AddNew
>
>myds1.Fields(0) = myds.Fields(0) 'Date
>
>myds1.Fields(1) = myds.Fields(1) 'Pattern name
>
>myds1.Fields(2) = myds.Fields(2) 'Cum total injection
>
>myds1.Fields(3) = myds.Fields(3) 'Cum based HCPV%
>
>myds1.Fields(4) = myds.Fields(4) 'Derivative based HCPV%
>
>myds1.Update
>
>
>
>Chester Kaup
>
>Engineering Technician
>
>Kinder Morgan CO2 Company, LLP
>
>Office (432) 688-3797
>
>FAX (432) 688-3799
>
>
>
>
>
>No trees were killed in the sending of this message. However a large
>number of electrons were terribly inconvenienced.
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada