MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Ocultar coluna de Subformulário a partir do select case

    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 11/01/2016

    Ocultar coluna de Subformulário a partir do select case Empty Ocultar coluna de Subformulário a partir do select case

    Mensagem  lpdias em 23/8/2020, 21:34

    Olá!

    Gostaria de uma ajuda para ocultar alguns campos do meu subformulário de acordo com quem está logado.

    Formulário: FRM_lista_vendas
    Sub: SUB_Det_lista_Vendas

    campo que quero esconder para alguns usuários: lucro


    O que fiz foi assim:

    Select Case txtlogin

    Case "admin"


    Me.SUB_Det_lista_Vendas!lucro.visible = False

    end select


    Dessa forma nao oculta a coluna e mesmo que eu deixe o campo lucro como nao visivel, ele aparece.

    Alguem consegue me dizer no que estou errando.

    Obrigado
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Ocultar coluna de Subformulário a partir do select case Empty Re: Ocultar coluna de Subformulário a partir do select case

    Mensagem  caiosouza em 25/8/2020, 01:06

    Boa noite,

    Em qual evento do form que vc esta colocando esse código?

    Tenta colocar no evento "Ao abrir" do seu form:

    Código:
    If Me.txtlogin = "admin" Then Me.SUB_Det_lista_Vendas!lucro.visible = True Else Me.SUB_Det_lista_Vendas!lucro.visible = False

    Caso não funcione tente ver se a condicional está pegando o valor corretamente:
    Evento ao abrir:
    Código:
    Msgbox(Me.SUB_Det_lista_Vendas!lucro.visible)


    .................................................................................
    Caio Souza

    Engenheiro de Software

      Data/hora atual: 25/11/2020, 13:30