Ocultar campos vazios no formulário.

Bom dia. Tenho um formulário pop que lista empresas cadastradas com endereço, telefone, CNPJ, etc. Algumas não possuem campos preenchidos. É possível ocultar os campos vazios e reorganizar para não ficar um vácuo entre entre eles?
Desde já agradeço.

Juliano

Está dentro da lista? Se for não faz sentido, porque um usuário não tenha e outro tenha, vai ocutar as duas

Sim, todas as empresas tem os campos em comum como endereço, telefone, CEP, email, mas empresas como bancos, além dos campos-padrão tem número de agência, número da conta, token (número de série do leitor de código), contato (gerente) e outras só tem o telefone. A edição (editar ou adicionar) é feita por fora na tabela.

Assim, é lista sem coluna.

Código:

Private Sub Form_Current()
    Dim ctl As Control
    
    ' Loop através de todos os controles no formulário
    For Each ctl In Me.Controls
        ' Verifica se o controle é um campo de texto
        If TypeOf ctl Is TextBox Then
            ' Imprime o nome e valor do controle para depuração
            Debug.Print "Controle: " & ctl.Name & ", Valor: " & Nz(ctl.Value, "")
         If IsNull(ctl.Value) Or Trim(ctl.Value) = "" Then
                ctl.Visible = False
              
            Else
                ctl.Visible = True
            End If
        End If
    Next ctl
End Sub


Obrigado. Deu quase certo. Os campos ficaram ocultos mas entre eles ficou o vácuo. Lembro que cheguei a fazer isso em relatório e funcionou perfeitamente mas não em formulário baseado em tabela como esse.
Segue a imagem:

Boa noite Juliano,

Essa questão de "esconder" os controles quando eles não trazem valor é uma prática antiga e descontinuada, mas se você pretende prosseguir com este ajuste, minha sugestão é ajustar dinamicamente a propriedade "Top" de cada controle toda vez que algum deles ficar invisível.

Inclusive, é possível adaptar o código que o caro amigo Crysostomo disponibilizou para esta situação também.

Ou você pode desabilitar (Propriedade Enabled = False) os campos com vazios.

Compartilha uma copia do seu bd, somente objetos pertinentes ao problema, para análise e solução.

É isso

Att,

Alexandre Fim

Julianovv, boa noite, cara, pois essa reorganização é complicado no momento. No caso iria fazer outro tipo de controle, tipo, cada campo teria seu segundo campo "igual", ou seja, oculta o campo pai e exibir o campo filho.
Vamos esperar outros colegas a verem isso e nós dar um código mais claro.
Atte.
desculpe Alexandre estávamos digitando junto nem vi sua mensagem.

Obrigado Crysostomo e Alexandre Fim. Acho que é complicado mesmo. Vou tentar de outra forma criando 2 subformulários com a mesma tabela com seus campos relacionados.

Obrigado!

Sucesso.
Coloque o Tópico como resolvido