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]Tornar Visível e Invisível campo num formulário

    avatar
    RLeal
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Tornar Visível e Invisível campo num formulário Empty [Resolvido]Tornar Visível e Invisível campo num formulário

    Mensagem  RLeal 14/10/2020, 17:07

    Boa Tarde,
    Precisava de uma ajuda vossa, pois inseri  um botão de opção num formulário, que ao selecionar torna visível uma caixa de texto, até aqui tudo bem, o problema é que ao tornar visível a caixa de texto com o botão de opção, ela fica visível em todos os registos anterior mesmo que não tenha sido selecionada caixa de texto.

    O Código VBA que usei no botão foi:

    Me.txtNºPlantas.Visible = Not Me.txtNºPlantas.Visible  

    Desde já agradeço a vossa ajudas
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3740
    Registrado : 04/04/2010

    [Resolvido]Tornar Visível e Invisível campo num formulário Empty Re: [Resolvido]Tornar Visível e Invisível campo num formulário

    Mensagem  Avelino Sampaio 14/10/2020, 20:30

    Olá!

    Qual o padrão para a propriedade deste campo ? Sempre que acessar o registro este campo deve se apresentar oculto ? se sim, o senhor poderá utilizar o evento "no atual" para setar o campo para oculto.

    Private Sub Form_Current()
    Me.txtNºPlantas.Visible = 0
    End Sub


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    RLeal gosta desta mensagem

    avatar
    RLeal
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Tornar Visível e Invisível campo num formulário Empty Tornar Visível e Invisível campo num formulário

    Mensagem  RLeal 15/10/2020, 13:00

    Bom dia,
    Obrigado Senhor Avelino, já resolvi uma parte com a sua dica, agora só me falta quando salvar e ao volta a este registo ficar a aparecer o campo visível, sempre que o mesmo tenha sido preenchido com o nº de plantas.
    Ivan Carlo
    Ivan Carlo
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 13/06/2015

    [Resolvido]Tornar Visível e Invisível campo num formulário Empty Re: [Resolvido]Tornar Visível e Invisível campo num formulário

    Mensagem  Ivan Carlo 15/10/2020, 14:21

    Bom Dia.
    Não seria então isso?

    Código:
    Private Sub Form_Current()
    If (Me!txtNºPlantas) >0 Then
    Me.txtNºPlantas.Visible = 1
    Else
    Me.txtNºPlantas.Visible = 0
    End If
    End Sub

    RLeal gosta desta mensagem

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3740
    Registrado : 04/04/2010

    [Resolvido]Tornar Visível e Invisível campo num formulário Empty Re: [Resolvido]Tornar Visível e Invisível campo num formulário

    Mensagem  Avelino Sampaio 15/10/2020, 14:24

    Olá!

    Experimente:

    Private Sub Form_Current()
    Me.txtNºPlantas.Visible = len(me!txtNºPlantas & "") > 0
    End Sub


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    RLeal gosta desta mensagem

    avatar
    RLeal
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 08/10/2020

    [Resolvido]Tornar Visível e Invisível campo num formulário Empty Tornar Visível e Invisível campo num formulário

    Mensagem  RLeal 15/10/2020, 15:49

    Obrigado a ambos,
    Após testar resulta das duas formas.

    Obrigado

      Data/hora atual: 26/9/2021, 11:41