在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