Objeto AllViews (Access)
La colección AllViews contiene un objeto AccessObject para cada vista del objeto CurrentData o CodeData .
Comentarios
El objeto CurrentData o CodeData tiene una colección AllViews que contiene objetos AccessObject que describen instancias de todas las vistas especificadas mediante CurrentData o CodeData. Por ejemplo, puede enumerar la colección AllViews en Visual Basic para establecer o devolver los valores de las propiedades de cada uno de los objetos AccessObject de la colección.
Haga referencia a un objeto AccessObject individual de la colección AllViews 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 AllViews, es más conveniente hacer referencia a la vista por su nombre, dado que el índice de la colección de una vista puede cambiar.
La colección AllViews se indiza a partir de cero. Si hace referencia a una vista por su índice, la primera vista es AllViews(0), la segunda vista es AllViews(1), etc.
Nota:
Para enumerar todas las vistas abiertas de la base de datos, use la propiedad IsLoaded de cada objeto AccessObject de la colección AllViews . A continuación, puede usar la propiedad Name de cada objeto AccessObject individual para devolver el nombre de una vista.
Los objetos AccessObject no se pueden agregar ni eliminar de la colección AllViews.
Ejemplo:
En el ejemplo siguiente se imprime el nombre de cada objeto AccessObject abierto en la colección AllViews.
Sub AllViews()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllViews collection.
For Each obj In dbs.AllViews
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.