Objeto AllTables (Access)
A coleção AllTables contém um AccessObject para cada tabela no objeto CurrentData ou CodeData objeto.
Comentários
O objeto CurrentData ou CodeData tem uma coleção AllTables contendo objetos AccessObject que descrevem instâncias de todas as tabelas especificadas pelo objeto CurrentData ou CodeData. Por exemplo, você pode enumerar a coleção AllTables 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 AllTables , referindo-se ao objeto pelo nome ou referindo-se ao seu índice dentro da coleção. Se desejar fazer referência a um objeto específico na coleção AllTables, é melhor referir-se à tabela pelo nome, porque o índice da coleção de uma tabela pode ser alteradas.
Coleção AllTables é indexada começando com zero. Se você fizer referência a uma tabela pelo índice, a primeira tabela é AllTables(0), a segunda tabela será AllTables (1) e assim sucessivamente.
Observação
[!OBSERVAçãO] Para listar todas as tabelas abertas no banco de dados, use o IsLoaded propriedade de cada objeto AccessObject da coleção AllTables. Você poderá usar o nome propriedade de cada objeto AccessObject individual para retornar o nome de uma tabela.
Você não pode adicionar ou excluir um objeto AccessObject da coleção AllTables.
Exemplo
O exemplo a seguir imprime o nome de cada objeto AccessObject aberto na coleção 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
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.