Office中国论坛/Access中国论坛

标题: 如何在查询结果中显示access的链接? [打印本页]

作者: gigi07 时间: 2006-6-1 03:46
标题: 如何在查询结果中显示access的链接?
如何在查询结果中显示access的链接?

作者: 一点通 时间: 2006-6-1 05:06
不明,请详细描述一下

作者: wu8313 时间: 2006-6-1 06:04
可能是想在查询中显示链接表的名称吧？

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

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

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

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

[attach]18180[/attach]

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)