How tell if a database has any linked tables?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I've written a program (in Access) that reads other Access databases. I need
to tell if a given database contains any linkjed tables (I'm attempting to
detect if the database is a front or back end database). How can I do this. I
cannot use the CurrentProject collections as that is my database and not the
ones I am opening. The solution must work in Access 97 and Access 2000. Any
ideas?
 
You don't say how you're 'reading' the other MDB. If you already have a
Database object, you could modify the following example to accept that
Database object, rather than opening another one ...

Public Function HasLinkedTables(ByVal strDataBase As String) As Boolean

Dim db As DAO.Database
Dim tdf As DAO.TableDef

Set db = DBEngine.OpenDatabase(strDataBase)
For Each tdf In db.TableDefs
If Len(tdf.Connect) > 0 Then
HasLinkedTables = True
Exit For
End If
Next tdf
db.Close

End Function

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.
 
Back
Top