does table exist in a linked db

[LGarcia]

Hi all,
How would I check to see if a table exists in a linked db? I also need to
see if I can return the date the table was created as well.
Thanks,
LGarcia

 

[Ed]

Public Sub testt()
Dim db As Database
Dim tdfNew As TableDef

'Linked database
Set db = DBEngine.Workspaces(0).OpenDatabase("m:\db2.mdb")

For Each tdfNew In db.TableDefs
'Name opf table
If tdfNew.Name = "tblSpecialCase" Then
Debug.Print tdfNew.Name & "-" & tdfNew.DateCreated
Else
Debug.Print tdfNew.Name
End If
Next

End Sub

 

[LGarcia]

Thanks Ed,
The only problem I have is that the linked db is not static. My main db
contains forms and queries that are linked to different dbs containing data.
Is there a way to evaluate the current linked db and apply it to your code?
Thanks again for the quick reply.
LGarcia

 

[Ed]

Substitute
Set db = DBEngine.Workspaces(0).OpenDatabase("m:\db2.mdb")
with
set db = CurrentDb

ed

 

[LGarcia]

Thanks! I'll give it a try.

Substitute
Set db = DBEngine.Workspaces(0).OpenDatabase("m:\db2.mdb")
with
set db = CurrentDb

ed