2012-05-16 11 views

Odpowiedz

7

Możesz użyć kolekcji tabledfs, aby sprawdzić właściwość connect i nazwę tabeli źródłowej.

CurrentDB.TableDefs("dbo_table_name").SourceTableName 
CurrentDB.TableDefs("dbo_table_name").Connect 

Albo

Dim tdf As TableDef 
Dim db As Database 

    Set db = CurrentDb 

    For Each tdf In CurrentDb.TableDefs 
     If tdf.Connect <> vbNullString Then 
      Debug.Print tdf.Name; " -- "; tdf.SourceTableName; " -- "; tdf.Connect 
     End If 
    Next 
+0

Dzięki! To działało, ale czy istnieje sposób na podanie nazwy łącza MS Access? Teraz, gdy mam nazwy tabel SQL Server, nie jestem pewien, co jest faktycznie połączone z MS Access, ponieważ ich nazwy nie pasują. – Tuan

+0

To byłaby nazwa tarczy. Edytowałem. – Fionnuala

Powiązane problemy