AllViews 集合
內(nèi)容
AllViews 集合包含 CurrentData 或 CodeData 對(duì)象中每個(gè)視圖的 AccessObject 對(duì)象。
使用 AllViews 集合
CurrentData 或 CodeData 對(duì)象具有一個(gè) AllViews 集合，其中包含描述由 CurrentData 或 CodeData 指定的所有視圖的實(shí)例的 AccessObject 對(duì)象。例如，可以在 Visual Basic 中列舉 AllViews 集合來(lái)設(shè)置或返回該集合中單個(gè) AccessObject 對(duì)象的屬性值。
可以引用 AllViews 集合中的單個(gè) AccessObject 對(duì)象，方法是：按照名稱(chēng)引用對(duì)象，或引用集合中對(duì)象的索引。如果要引用 AllViews 集合中的特定的對(duì)象，最好按照名稱(chēng)引用視圖，因?yàn)橐晥D的集合索引可能會(huì)更改。
AllViews 集合的索引是從零開(kāi)始的。如果通過(guò)索引來(lái)引用視圖，則第一個(gè)視圖是 AllViews(0)，第二個(gè)視圖是 AllViews(1)，依此類(lèi)推。
注釋
| ? | AllViews 集合僅包含 Microsoft Access 項(xiàng)目 (.adp) 中的 AccessObject 對(duì)象。Microsoft Access 數(shù)據(jù)庫(kù) (.mdb) 中不含任何視圖。請(qǐng)參閱 AllQueries 集合。 |
| ? | 若要列出項(xiàng)目中所有打開(kāi)的視圖，可使用 AllViews 集合中每個(gè) AccessObject 對(duì)象的 IsLoaded 屬性。然后，可使用每個(gè)單獨(dú)的 AccessObject 對(duì)象的 Name 屬性返回視圖的名稱(chēng)。 |
| ? | 無(wú)法在 AllViews 集合中添加或刪除 AccessObject 對(duì)象。 |
下面的示例將打印 AllViews 集合中每個(gè)打開(kāi)的 AccessObject 對(duì)象的名稱(chēng)。
Sub AllViews()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllViews collection.
For Each obj In dbs.AllViews
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub