Access2000＋SQL Server難しい・・・（´д｀；）

[0155 名無しさん＠そうだ選挙にいこう 2008/01/19(土) 09:27:55]

それぞれのオブジェクトをこんな風に書けばできる。

Sub AllTables()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' AllTables コレクションの開いている AccessObject オブジェクトを検索します。
For Each obj In dbs.AllTables
Debug.Print obj.Name
Next obj
End Sub

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vbaac11/html/accolAllForms.asp