[AccessD] Search MDBs for specific table name

Jack, or anyone...

This is a piece of the code you sent...works like a charm...but I can only run it once...then have to close the db...and I'm not sure why.  I have isloated a few lines where I believe the problem is.  I don't get any errors...it just gets stuck in a continuous loop.  I have marked the lines below---I have stepped through...and the second time running...these lines step through....but the value = 'Nothing' and the rz.EOF shows 

Any ideas?

Thanks,

Mark A. Matte

Do While Not rs.EOF
    Debug.Print Now & " - Processing  " & rs!fullMDBCoord
    strDBPath = rs!fullMDBCoord
---Set OtherDB = OpenDatabase(strDBPath)---
---Set rz = OtherDB.OpenRecordset(qsql)---
   With DBObjList
    Do While Not rz.EOF



----------------------------------------
> From: markamatte at hotmail.com
> To: accessd at databaseadvisors.com
> Date: Tue, 25 Mar 2008 20:59:15 +0000
> Subject: Re: [AccessD] Search MDBs for specific table name
> 
> 
> Thanks for All of the feedback.  Jack was nice enough to send a little code...and then I added some I had from other projects.  So far here is what I have.
> 
> 1.  Select your folder/directory
> 2.  Puch the button...(just humor)
> Anyway...it collects the following: DB Name, DB location ,DB size ,DB Created Date, DB LastUpdate, and all objects in DB.
> 
> Just about meets my needs, but I was wondering as an Info gathering tool...can anyone think of any other attribute that might be handy to add in?
> 
> Thanks,
> 
> Mark A. Matte
> 
> >Mark, 
> >
> >Mark,I am resending. The original email was held at databaseadvisors.com because of size.(seeattached email)>Anyway, others may have responded, but the attached DBObjects.zip is myapproach. Hope it is helpful and>timely. 
> >
> >Jack
> 
> 
> > From: dwaters at usinternet.com
> > To: accessd at databaseadvisors.com
> > Date: Mon, 24 Mar 2008 20:34:53 -0500
> > Subject: Re: [AccessD] Search MDBs for specific table name
> >
> > Hi Mark,
> >
> > 1) Walk through the files in the folder using a collection of files
> >
> > 2) Try to import the object(s) you're looking for from each mdb. If you
> > don't get an error, the object exists. (I've never tried this)
> >
> > You can probably use this example from Help:
> > DoCmd.TransferDatabase acImport, "Microsoft Access", _
> > "C:\My Documents\NWSales.mdb", acReport, "NW Sales for April", _
> > "Corporate Sales for April"
> >
> > 3) Store the name of the mdb's and objects in a table for later reference.
> >
> > I want to know if you try this and if it works!
> >
> > Good Luck,
> > Dan
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte
> > Sent: Monday, March 24, 2008 3:29 PM
> > To: Access Developers discussion and problem solving
> > Subject: [AccessD] Search MDBs for specific table name
> >
> >
> > Hello All,
> >
> > I need to search a folder with 100's of Access DBs...and find the ones with
> > a certain table,form,qry, or module name. Any ideas?
> >
> > Thanks,
> >
> > Mark A. Matte
> >
> >
> >
> > _________________________________________________________________
> > Watch "Cause Effect," a show about real people making a real difference.
> > Learn more.
> > http://im.live.com/Messenger/IM/MTV/?source=text_watchcause
> > --
> > 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
> 
> _________________________________________________________________
> Watch “Cause Effect,” a show about real people making a real difference.  Learn more.
> http://im.live.com/Messenger/IM/MTV/?source=text_watchcause
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

_________________________________________________________________
How well do you know your celebrity gossip?
http://originals.msn.com/thebigdebate?ocid=T002MSN03N0707A