次の方法で共有


AllTables オブジェクト (Access)

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 のサポートおよびフィードバックを参照してください。