Objeto AllDatabaseDiagrams (Access)
La colección AllDatabaseDiagrams contiene un objeto AccessObject para cada diagrama de base de datos en el objeto CurrentData o CodeData.
Comentarios
El objeto CurrentData o CodeData tiene una colección AllDatabaseDiagrams que contiene objetos AccessObject que describen instancias de todos los diagramas de base de datos especificadas mediante CurrentData o CodeData. Por ejemplo, puede enumerar la colección AllDatabaseDiagrams 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 AllDatabaseDiagrams 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 AllDatabaseDiagrams, es más conveniente hacer referencia al diagrama de base de datos por su nombre, dado que puede cambiar el índice de la colección de un diagrama de base de datos.
La colección AllDatabaseDiagrams se indiza a partir de cero. Si hace referencia a un diagrama de base de datos por su índice, el primer diagrama de base de datos es AllDatabaseDiagrams(0), el segundo diagrama de base de datos es AllDatabaseDiagrams (1) y así sucesivamente.
Nota:
No puede agregar ni eliminar un objeto AccessObject de la colección AllDatabaseDiagrams.
Ejemplo:
En el ejemplo siguiente se imprime el nombre de cada objeto AccessObject abierto en la colección AllDatabaseDiagrams.
Sub AllDatabaseDiagrams()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in
' AllDatabaseDiagrams collection.
For Each obj In dbs.AllDatabaseDiagrams
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.