Objeto AllViews (Access)
A coleção AllViews contém um AccessObject para cada exibição no objeto CurrentData ou CodeData .
O objeto CurrentData ou CodeData apresenta uma coleção AllViews que contém objetos AccessObject que descrevem instâncias de todos os modos de exibição especificados por CurrentData ou CodeData. Por exemplo, você pode enumerar a coleção AllViews no Visual Basic para definir ou retornar os valores das propriedades dos objetos AccessObject individuais da coleção.
Consulte um objeto AccessObject individual na coleção AllViews , referindo-se ao objeto pelo nome ou referindo-se ao seu índice dentro da coleção. Para fazer referência a um objeto específico da coleção AllViews, é melhor referir-se ao modo de exibição pelo nome porque o índice da coleção de um modo de exibição poderá sofrer alterações.
A coleção AllViews é indexada a partir de zero. Se você se referir a uma exibição por seu índice, a primeira exibição será AllViews(0), a segunda exibição será AllViews(1) e assim por diante.
Observação
Para listar todas as exibições abertas no banco de dados, use a propriedade IsLoaded de cada objeto AccessObject na coleção AllViews . Em seguida, você pode usar a propriedade Name de cada objeto AccessObject individual para retornar o nome de uma exibição.
Não é possível adicionar nem excluir um objeto AccessObject da coleção AllViews.
O exemplo a seguir imprime o nome de cada objeto AccessObject aberto na coleção 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
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.