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

2 participantes

    [Resolvido]Controle visível ou invisível conforme texto de outro controle

    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    [Resolvido]Controle visível ou invisível conforme texto de outro controle Empty Controle visível ou invisível conforme texto de outro controle

    Mensagem  anderson_cgms 16/8/2012, 18:10

    Boa tarde, pessoal perdoem se estiver errado na criação deste tópico, eu sou iniciante e VBA não é meu forte.
    Tenho três campos em um formulário.
    Campo1: [estado civil] que tem cinco itens na lista "Solteiro", "Casado", "divorciado", "viúvo" e "Outros" gostaria que quando este campo1 [estado civil] marcasse "Casado" ou "outros" o campo2 [cônjuge] e o campo3 [CPF] ficassem visível, e quando os dados do campo1 [estado civil] marcasse "Solteiro","divorciado" ou "viúvo" o campo2 [cônjuge] e o campo3 [CPF] ficassem invisível. Como faço.
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Controle visível ou invisível conforme texto de outro controle Empty Re: [Resolvido]Controle visível ou invisível conforme texto de outro controle

    Mensagem  Leandro 16/8/2012, 18:20

    Boa tarde!

    Faça assim:

    No evento após atualizar do campo: [estado civil]

    Private Sub Estado_Civil_AfterUpdate()

    Select Case Me.estado civil

    Case "Solteiro"
    Me.cônjuge.Visible = False
    Me.CPF.Visible = False

    Case "divorciado"
    Me.cônjuge.Visible = False
    Me.CPF.Visible = False

    Case "viúvo"
    Me.cônjuge.Visible = False
    Me.CPF.Visible = False

    Case "Casado"
    Me.cônjuge.Visible = True
    Me.CPF.Visible = True

    Case "Outros"
    Me.cônjuge.Visible = True
    Me.CPF.Visible = True

    End Select

    End Sub

    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012

    [Resolvido]Controle visível ou invisível conforme texto de outro controle Empty Re: [Resolvido]Controle visível ou invisível conforme texto de outro controle

    Mensagem  anderson_cgms 16/8/2012, 18:44

    Leandro, muito obrigado.

    Tenha certeza que você ganhou mais um fã.

    obrigado mesmo.
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Controle visível ou invisível conforme texto de outro controle Empty Re: [Resolvido]Controle visível ou invisível conforme texto de outro controle

    Mensagem  Leandro 16/8/2012, 18:51

    Legal!

    Só não esqueça de dar o tópico como Resolvido

    Abraço


      Data/hora atual: 27/1/2023, 04:32