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

[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

 

[Brendan Reynolds]

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.

 

[Guest]

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