Using VB, how do I determine if an external table is still linked.

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

Guest

(Access XP 2002)
Trying to determine if a linked table is still linked so that I can delete
the link and make a make a connection to a different database. To do this
with regular tables, I use the following code:

Public Function IsTable(myTableName As String) As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData

IsTable = False

For Each obj In dbs.AllTables
If obj.Name = myTableName Then
IsTable = True
Exit For
End If
Next obj

End Function

For some reason, this code will not detect a linked table. How can I do so?

Thanks,
Bruce
 
The code you posted works with linked tables for me.

--
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.
 
Thanks, Brendan. Problem was in undefined object variable in the "delete"
function, not with the "IsTable" routine. Found it after sending the post.
Guess that's why they invented Option Explicit...
Bruce
 
Back
Top