Objeto AllReports (Access)
A coleção AllReports contém um AccessObject para cada relatório CurrentProject ou CodeProject objeto.
Comentários
O objeto CurrentProject ou CodeProject tem uma coleção AllReports que contém os objetos AccessObject que descrevem instâncias de todos os relatórios no banco de dados. Por exemplo, você pode enumerar a coleção AllReports 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 AllReports , referindo-se ao item pelo nome ou referindo-se ao seu índice dentro da coleção. Se você quiser se referir a um relatório específico na coleção AllReports , é melhor consultar o relatório pelo nome porque o índice pode ser alterado.
A coleção AllReports é indexada começando com zero. Se você fizer referência a um relatório pelo índice, o primeiro relatório é AllReports(0), o segundo relatório será AllReports (1) e assim por diante.
Observação
[!OBSERVAçãO] Para listar todos os relatórios abertos no banco de dados, use o IsLoaded propriedade de cada objeto AccessObject da coleção AllReports. Você pode usar o nome de propriedade de cada objeto AccessObject individual para retornar o nome de um relatório.
Você não pode adicionar ou excluir um objeto AccessObject da coleção AllReports.
Exemplo
O exemplo a seguir imprime o nome de cada objeto AccessObject aberto na coleção AllReports.
Sub AllReports()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllReports collection.
For Each obj In dbs.AllReports
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.