如何在查询结果中显示access的链接?

gigi07

如何在查询结果中显示access的链接?

一点通

不明,请详细描述一下

wu8313

可能是想在 查询中 显示链接表的名称吧？

=============================================

Sub getLinkstbl_name()

    Dim dbs As Database
    Dim tdf As TableDef

    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs    ' 循环处理此数据库的所有表。

        If (tdf.Attributes And dbSystemObject) = False Then '排除系统表
        
            If Len(tdf.Connect) > 0 Then  ' 如果表有一个连接串，那么该表是一个链接表
            
             Debug.Print tdf.Name & "是链接表"
            
            Else
            
            Debug.Print tdf.Name & "不是链接表"
               
            End If
            
        End If
        
    Next tdf


End Sub

楼主，可以把上述代码中得到的链接表名称再次交给一个查询就可以了。

=================================

[此贴子已经被作者于2006-5-31 22:05:12编辑过]