在vba中獲取本地表和鏈接表的名稱

Question

我在我的應用程序中有兩個表是本地表和三個鏈接表，我不確定我的代碼如何獲取表的名稱。我需要一個代碼，用for循環提供兩種類型的表名。

表名

LocalTable1 
LocalTable2 
LinkTable1 
LinkTable2 
LinkTable3 

代碼

Dim td As TableDef 
Dim stConnect As String 
For Each td In CurrentDb.TableDefs 
    Debug.Print td.Name 
Next 

Answer 1

您可以使用源表名：

Dim db As Database 
Dim tdf As TableDef 

Set db = CurrentDb 

For Each tdf In db.TableDefs 
    If Left(tdf.Name, 4) <> "MSys" Then 
     Debug.Print tdf.Name & IIf(tdf.SourceTableName <> "", " source table: " _ 
      & tdf.SourceTableName, "") 
    End If 
Next