Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Коллекция AllQueries содержит объект AccessObject для каждого запроса в объекте CurrentData или CodeData .
Замечания
Объект CurrentData или CodeData содержит коллекцию AllQueries , содержащую объекты AccessObject , описывающие экземпляры всех запросов, указанных в CurrentData или CodeData. Например, можно перечислить коллекцию AllQueries в Visual Basic, чтобы задать или вернуть значения свойств отдельных объектов AccessObject в коллекции.
Ссылка на отдельный объект AccessObject в коллекции AllQueries либо путем ссылки на объект по имени, либо путем ссылки на его индекс в коллекции. Если вы хотите ссылаться на конкретный объект в коллекции AllQueries , лучше ссылаться на запрос по имени, так как индекс коллекции запроса может измениться.
Коллекция AllQueries индексируется с нуля. Если вы ссылаетесь на запрос по его индексу, первый запрос — AllQueries(0), второй — AllQueries(1) и т. д.
Примечание.
Чтобы получить список всех открытых запросов в базе данных, используйте свойство IsLoaded каждого объекта AccessObject в коллекции AllQueries . Затем можно использовать свойство Name каждого отдельного объекта AccessObject , чтобы вернуть имя запроса.
Невозможно добавить или удалить объект AccessObject из коллекции AllQueries .
Пример
В следующем примере выводится имя каждого открытого объекта AccessObject в коллекции AllQueries .
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
Свойства
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.