Объект AllMacros (Access)
Коллекция AllMacros содержит объект AccessObject для каждого макроса в объекте CurrentProject или CodeProject .
Объект CurrentProject или CodeProject содержит коллекцию AllMacros , содержащую объекты AccessObject , описывающие экземпляры всех макросов, заданных CurrentProject или CodeProject. Например, можно перечислить коллекцию AllMacros в Visual Basic, чтобы задать или вернуть значения свойств отдельных объектов AccessObject в коллекции.
Ссылка на отдельный объект AccessObject в коллекции AllMacros либо путем ссылки на объект по имени, либо путем ссылки на его индекс в коллекции. Если вы хотите ссылаться на конкретный объект в коллекции AllMacros , лучше ссылаться на макрос по имени, так как индекс коллекции макроса может измениться.
Коллекция AllMacros индексируется с нуля. Если вы ссылаетесь на макрос по его индексу, первый макрос — AllMacros(0), второй макрос — AllMacros(1) и т. д.
Примечание
Чтобы получить список всех открытых макросов в базе данных, используйте свойство IsLoaded каждого объекта AccessObject в коллекции AllMacros . Затем можно использовать свойство Name каждого отдельного объекта AccessObject , чтобы вернуть имя макроса.
Невозможно добавить или удалить объект AccessObject из коллекции AllMacros .
В следующем примере выводится имя каждого открытого объекта AccessObject в коллекции AllMacros .
Sub AllMacros()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllMacros collection.
For Each obj In dbs.AllMacros
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.