AllTables コレクション
Microsoft Access Visual Basic のリファレンス |
AllTables コレクション
複数のオブジェクト AllTables AccessObject AccessObjectProperties |
AllTables コレクションには、CurrentData または CodeData オブジェクトの各テーブルに対する AccessObject オブジェクトが含まれます。
使い方
CurrentData または CodeData オブジェクトには、CurrentData または CodeData で指定されたすべてのテーブルのインスタンスを設定する AccessObject オブジェクトを含む AllStoredPrecedures コレクションがあります。たとえば、Visual Basic で、AllTabes コレクションを列挙して、コレクションの各 AccessObject オブジェクトのプロパティの値を設定または取得することができます。
ヒント
For Each...Next ステートメントは、コレクションを列挙するのに便利です。
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
' AllTables コレクションの開いている AccessObject オブジェクトを検索します。
For Each obj In dbs.AllTables
If obj.IsLoaded = True Then
' オブジェクト名を印刷します。
Debug.Print obj.Name
End If
Next obj
End Sub