Objeto AllMacros (Access)
La colección AllMacros contiene un objeto AccessObject para cada macro del objeto CurrentProject o CodeProject objeto.
Comentarios
El objeto CurrentProject o CodeProject tiene una colección AllMacros que contiene objetos AccessObject que describen instancias de todas las macros especificadas mediante CurrentProject o CodeProject. Por ejemplo, puede enumerar la colección AllMacros en Visual Basic para establecer o devolver los valores de las propiedades de objetos AccessObject determinados de la colección.
Haga referencia a un objeto AccessObject individual de la colección AllMacros haciendo referencia al objeto por nombre o haciendo referencia a su índice dentro de la colección. Si desea hacer referencia a un objeto específico de la colección AllMacros, es más conveniente hacer referencia a la macro por su nombre, dado que puede cambiar el índice de la colección de una macro.
La colección AllMacros se indiza a partir de cero. Si hace referencia a una macro mediante el índice, la primera macro es AllMacros(0), la segunda es AllMacros (1) y así sucesivamente.
Nota:
[!NOTA] Para mostrar todas las macros abiertas en la base de datos, utilice el IsLoaded propiedad de cada objeto AccessObject de la colección AllMacros. A continuación, puede utilizar el nombre propiedad de cada objeto AccessObject determinado para devolver el nombre de una macro.
No puede agregar ni eliminar un objeto AccessObject de la colección AllMacros.
Ejemplo:
En el ejemplo siguiente se imprime el nombre de cada objeto AccessObject abierto en la colección 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
Propiedades
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.