Partilhar via


Objeto AllMacros (Access)

A coleção AllMacros contém um AccessObject para cada macro no CurrentProject ou CodeProject objeto.

Comentários

O objeto CurrentProject ou CodeProject tem uma coleção AllMacros contendo objetos AccessObject que descrevem instâncias de todas as macros especificadas pelo CurrentProject ou CodeProject. Por exemplo, você pode enumerar a coleção AllMacros no Visual Basic para definir ou retornar os valores das propriedades dos objetos AccessObject individuais na coleção.

Consulte um objeto AccessObject individual na coleção AllMacros , referindo-se ao objeto pelo nome ou referindo-se ao seu índice dentro da coleção. Se você deseja fazer referência a um objeto específico na coleção AllMacros, é melhor referir-se à macro pelo nome, porque o índice da coleção de uma macro pode ser alteradas.

A coleção AllMacros é indexada começando com zero. Se você fizer referência a uma macro pelo índice, a primeira macro é AllMacros(0), a segunda macro será AllMacros (1) e assim por diante.

Observação

[!OBSERVAçãO] Para listar todas as macros abertas no banco de dados, use o IsLoaded propriedade de cada objeto AccessObject da coleção AllMacros. Você pode usar o nome de propriedade de cada objeto AccessObject individual para retornar o nome de uma macro.

Você não pode adicionar ou excluir um objeto AccessObject da coleção AllMacros.

Exemplo

O exemplo a seguir imprime o nome de cada objeto AccessObject aberto na coleção 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

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.