Objeto AllTables (Access)
La colección AllTables contiene un objeto AccessObject para cada tabla en el objeto CurrentData o CodeData objeto.
Comentarios
El objeto CurrentData o CodeData tiene una colección AllTables que contiene objetos AccessObject que describen instancias de todas las tablas especificadas mediante CurrentData o CodeData. Por ejemplo, puede enumerar la colección AllTables 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 AllTables 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 AllTables, es más conveniente hacer referencia a la tabla por su nombre, dado que puede cambiar el índice de la colección de una tabla.
La colección AllTables se indiza a partir de cero. Si hace referencia a una tabla por su índice, la primera tabla es AllTables(0), la segunda es AllTables (1) y así sucesivamente.
Nota:
[!NOTA] Para mostrar todas las tablas abiertas en la base de datos, utilice el IsLoaded propiedad de cada objeto AccessObject de la colección AllTables. A continuación, puede utilizar el nombre propiedad de cada objeto AccessObject determinado para devolver el nombre de una tabla.
No puede agregar ni eliminar un objeto AccessObject de la colección AllTables.
Ejemplo:
En el ejemplo siguiente se imprime el nombre de cada objeto AccessObject abierto en la colección AllTables.
Sub AllTables()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllTables collection.
For Each obj In dbs.AllTables
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.