Objeto AllDatabaseDiagrams (Access)

A coleção AllDatabaseDiagrams contém um AccessObject para cada diagrama de banco de dados no objeto CurrentData ou CodeData.

Comentários

O objeto CurrentData ou CodeData tem uma coleção AllDatabaseDiagrams contendo objetos AccessObject que descrevem instâncias de todos os diagramas de banco de dados especificados pelo objeto CurrentData ou CodeData. Por exemplo, você pode enumerar a coleção AllDatabaseDiagrams 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 AllDatabaseDiagrams , referindo-se ao objeto pelo nome ou referindo-se ao seu índice dentro da coleção. Se você deseja fazer referência a um objeto específico na coleção AllDatabaseDiagrams, é melhor referir-se ao diagrama de banco de dados pelo nome, porque o índice da coleção de um diagrama banco de dados pode ser alteradas.

A coleção AllDatabaseDiagrams é indexada começando com zero. Se você se referir a um diagrama de banco de dados pelo índice, o primeiro diagrama de banco de dados é AllDatabaseDiagrams(0), o segundo diagrama de banco de dados será AllDatabaseDiagrams (1) e assim por diante.

Exemplo

O exemplo a seguir imprime o nome de cada objeto AccessObject aberto na coleção AllDatabaseDiagrams.

Sub AllDatabaseDiagrams() 
    Dim obj As AccessObject, dbs As Object 
    Set dbs = Application.CurrentData 
    ' Search for open AccessObject objects in 
    ' AllDatabaseDiagrams collection. 
    For Each obj In dbs.AllDatabaseDiagrams 
        If obj.IsLoaded = True Then 
            ' Print name of obj. 
            Debug.Print obj.Name 
        End If 
    Next obj 
End Sub 

Propriedades

• Aplicativo
• Count
• Item
• Parent

Confira também

• Referência do modelo de objeto do Access

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.