在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