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