does table exist in a linked db

  • Thread starter Thread starter LGarcia
  • Start date Start date
L

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
 
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
 
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
 
Substitute
Set db = DBEngine.Workspaces(0).OpenDatabase("m:\db2.mdb")
with
set db = CurrentDb

ed
 
Back
Top