MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Como ocultar todos os campos em form simples nulos, vazios

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Como ocultar todos os campos em form simples  nulos, vazios Empty [Resolvido]Como ocultar todos os campos em form simples nulos, vazios

    Mensagem  Assis 26/11/2014, 14:32


    Boa tarde amigos
    Tenho esta função mas não estou a conseguir aplicar.
    Private Sub Form_Load()

    On Error Resume Next
    Dim C As Control

    For Each C In Me.Controls
    If C.ControlType = acTextBox And C.ControlType = acComboBox Then
    If C.Value <= 0 Then
    If C.Value < 0 Or IsNull(C) Or C.Value = 0 Then
    C.Visible = False
    Else
    C.Visible = True
    End If
    End If
    End If
    Next

    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como ocultar todos os campos em form simples  nulos, vazios Empty Re: [Resolvido]Como ocultar todos os campos em form simples nulos, vazios

    Mensagem  criquio 26/11/2014, 14:36

    Talvez se trocar And por Or no ControlType...

    If C.ControlType = acTextBox Or C.ControlType = acComboBox Then

    Porque não tem como um controle ser, ao mesmo tempo, TextBox e ComboBox Razz


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Como ocultar todos os campos em form simples  nulos, vazios Empty Re: [Resolvido]Como ocultar todos os campos em form simples nulos, vazios

    Mensagem  Assis 26/11/2014, 19:04

    Criquio
    Não resultou.
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Como ocultar todos os campos em form simples  nulos, vazios Empty Re: [Resolvido]Como ocultar todos os campos em form simples nulos, vazios

    Mensagem  Alexandre Neves 28/11/2014, 18:26

    Boa tarde, Assis
    Está a ser utilizada ao abrir o form e estará tudo vazio. Será indicado para utilizar no registo actual
    On Error Resume Next
    Dim C As Control

    For Each C In Me.Controls
    If C.ControlType = acTextBox or C.ControlType = acComboBox Then
    If len("" & C )=0 Then C.Visible = False Else C.Visible = True
    End If
    Next


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Como ocultar todos os campos em form simples  nulos, vazios Empty Re: [Resolvido]Como ocultar todos os campos em form simples nulos, vazios

    Mensagem  Assis 28/11/2014, 18:37

    Obrigado Alexandre





    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Como ocultar todos os campos em form simples  nulos, vazios Empty Re: [Resolvido]Como ocultar todos os campos em form simples nulos, vazios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 14:48