Como Ajustar automaticamente as Colunas em um SubForm

Reading time: 1 minute

Como Ajustar automaticamente as Colunas em um SubForm

Prezado leitor!

Neste artigo sobre Access VBA você vai aprender um procedimento bem simples para que a largura das colunas do seu sub formulário sejam ajustados automaticamente quando você carregar o seu formulário.

Esta funcionalidade pode ser muito útil dependendo do seu projeto.

Para exemplificar a nossa solução vou tomar como base o “case” que divulgamos no vídeo Como Ajustar automaticamente as Colunas em um SubForm

Primeiramente vamos apresentar o nosso subformulário que representa as Ordens de Compra dos fornecedores que estão no formulário principal. Á medida que navegamos pelos fornecedores, as ordens de compra associada a eles são exibidas no subformulário.

Agora, como podemos abrir este formulário e que estas colunas não estejam comprimidas?

Repare que as colunas do subform estão todas comprimidas propositalmente. Para resolver isso vamos incluir o seguinte procedimento no evento “Ao Abrir” do formulário

Private Sub Form_Open(Cancel As Integer)

    Dim ctrl As Control
    
    For Each ctrl In Forms![frmFornecedores]!sfrmOC.Controls
    
        If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
        
            'Define a largura da coluna como Automática
            ctrl.ColumnWidth = -2
            
        End If
        
    Next
    
End Sub

Gostaria de destacar 3 pontos importantes que se apresentam neste procedimento:

1. A forma de se referenciar a um Subform, dentro do form atual (Forms![frmFornecedores]!sfrmOC.Controls);
2. A Função TypeOf, utilizada dentro da Condicional para associar a um objeto;
3. A Propriedade ColumnWidth = -2, que define como automática a largura de uma coluna.

Ao exibir o formulário, certamente o resultado será neste formato, conforme abaixo:

Um forte abraço!

Aldir Oliveira