AllTables 集合包含 CurrentData 或 CodeData 對(duì)象中每個(gè)表的 AccessObject 對(duì)象。
CurrentData 或 CodeData 對(duì)象具有一個(gè) AllTables 集合,其中包含描述由 CurrentData 或 CodeData 指定的所有表的實(shí)例的 AccessObject 對(duì)象。例如,可以在 Visual Basic 中列舉 AllTables 集合來(lái)設(shè)置或返回該集合中單個(gè) AccessObject 對(duì)象的屬性值。
可以引用 AllTables 集合中的單個(gè) AccessObject 對(duì)象,方法是:按照名稱(chēng)引用對(duì)象,或引用集合中對(duì)象的索引。如果要引用 AllTables 集合中特定的對(duì)象,最好按照名稱(chēng)引用表,因?yàn)楸淼募纤饕赡軙?huì)更改。
AllTables 集合的索引是從零開(kāi)始的。如果通過(guò)索引來(lái)引用表,則第一個(gè)表是 AllTables(0),第二個(gè)表是 AllTables(1),依此類(lèi)推。
注釋 若要列出數(shù)據(jù)庫(kù)中所有打開(kāi)的表,可使用 AllTables 集合中每個(gè) AccessObject 對(duì)象的 IsLoaded 屬性。然后,可使用每個(gè)單獨(dú)的 AccessObject 對(duì)象的 Name 屬性返回表的名稱(chēng)。
無(wú)法在 AllTables 集合中添加或刪除 AccessObject 對(duì)象。
下面的示例將打印 AllTables 集合中每個(gè)打開(kāi)的 AccessObject 對(duì)象的名稱(chēng)。
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