AllTables コレクションには、 CurrentData または CodeData オブジェクトの各テーブルに対する AccessObject が含まれます。
注釈
CurrentData または CodeData オブジェクトには、 CurrentData または CodeData で指定されたすべてのテーブルのインスタンスを示す AccessObject オブジェクトを含む AllTables コレクションがあります。 たとえば、Visual Basic で、 AllTables コレクションを列挙して、コレクションの各 AccessObject オブジェクトのプロパティの値を設定または取得することができます。
AllTables コレクション内の個々の AccessObject オブジェクトを参照するには、オブジェクトを名前で参照するか、コレクション内のその索引を参照します。 AllTables コレクションの特定のオブジェクトを参照する場合、テーブルのコレクションのインデックスは変わる可能性があるので、テーブルの名前で参照することをお勧めします。
AllTables コレクションには 0 から始まるインデックスが付けられます。 テーブルをインデックスで参照する場合、最初のテーブルは AllTables(0)、2 番目のテーブルは AllTables(1)、以下同様になります。
注:
データベースで開いているすべてのテーブルを一覧表示するには、AllTables コレクション内の各 AccessObject オブジェクトの IsLoaded プロパティを使用します。 その後、個々の AccessObject オブジェクトの Name プロパティーを使用して、表の名前を返すことができます。
AllTables コレクションから AccessObject オブジェクトを追加または削除することはできません。
例
次の例では、AllTables コレクション内で開いている AccessObject オブジェクトの名前を出力します。
Sub AllTables()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllTables collection.
For Each obj In dbs.AllTables
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
プロパティ
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。