Stuart McLachlan
stuart at lexacorp.com.pg
Sat Apr 26 18:32:24 CDT 2003
Hmm, thank's for that. That was built on a piece of relinking code I keep in my toolbox. Since I've never relinked to a password protected mdb, I've never come across that problem. I'll modify my toolbox straight away. On 26 Apr 2003 at 17:29, Andy Lacey wrote: > mmm, not quite Stuart. As we found out on BEU the ;DATABASE= normally > comes in the 11th position of the string but not always. For exasmple > a password restricted MDB has extra in the connection string so > DATABASE= appears later in the string. The safer way is to search for > the position of DATABASE= > > Andy Lacey > http://www.minstersystems.co.uk > > > > > -----Original Message----- > > From: accessd-bounces at databaseadvisors.com > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of > > Stuart McLachlan > > Sent: 26 April 2003 14:36 > > To: Mwp.Reid at queens-belfast.ac.uk; accessd at databaseadvisors.com > > Subject: Re: [AccessD] Linked Tables > > > > > > On 26 Apr 2003 at 11:44, Mwp.Reid at queens-belfast.ac.uk wrote: > > > > > Is it possible via code to determine the source of a linked table? > > > > > > > > > > Look for the Connect string: > > > > Dim tdfloop As TableDef > > With CurrentDb > > For Each tdfloop In .TableDefs > > If Left$(tdfloop.Connect, 10) = ";DATABASE=" Then > > Debug.Print Mid$(tdfloop.Connect, 11) > > End If > > Next tdfloop > > End With > > > > > > -- > > Lexacorp Ltd > > http://www.lexacorp.com.pg > > Information Technology Consultancy, Software Development,System > > Support. > > > > > > > > _______________________________________________ > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/a> ccessd > > Website: > > http://www.databaseadvisors.com > > > > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com -- Lexacorp Ltd http://www.lexacorp.com.pg Information Technology Consultancy, Software Development,System Support.