Ler em inglês

Compartilhar via


Objeto AllForms (Access)

A coleção AllForms contém um objeto AccessObject para cada formulário no objeto CurrentProject ou CodeProject .

Comentários

Os objetos CurrentProject e CodeProject apresentam uma coleção AllForms que contém objetos AccessObject que descrevem instâncias de todos os formulários do banco de dados. Por exemplo, você pode enumerar a coleção AllForms 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 AllForms , 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 AllForms, é melhor referir-se ao formulário pelo nome porque o índice da coleção de um formulário poderá sofrer alterações.

A coleção AllForms é indexada a partir de zero. Se você fizer referência a um formulário pelo índice, o primeiro formulário será AllForms(0), o segundo formulário será AllForms(1) e assim por diante.

Observação

Para listar todos os formulários abertos no banco de dados, use a propriedade IsLoaded de cada objeto AccessObject na coleção AllForms . Você pode usar o nome propriedade de cada objeto AccessObject de individuais objeto para retornar o nome de um formulário.

Não é possível adicionar nem excluir um objeto AccessObject da coleção AllForms.

Exemplo

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

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

O exemplo a seguir mostra como impedir que um usuário abra um formulário específico diretamente do painel de navegação.

'Don't let this form be opened from the Navigator
If Not CurrentProject.AllForms(cFormUsage).IsLoaded Then
    MsgBox "This form cannot be opened from the navigation pane.", _
        vbInformation + vbOKOnly, "Invalid form usage"
    Cancel = True
    Exit Sub
End If

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.