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


4 participantes

    [Resolvido]Ocultar botão de comando se não forem os usuários X/Y

    L34NDR0
    L34NDR0
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    [Resolvido]Ocultar botão de comando se não forem os usuários X/Y Empty [Resolvido]Ocultar botão de comando se não forem os usuários X/Y

    Mensagem  L34NDR0 13/2/2014, 14:11

    Bom dia,

    Preciso que um botão de comando só apareça se os usuários forem o PEDRO ou o PAULO.
    Estou utilizando o código abaixo na propriedade "ao abrir" do form, porém ele funciona somente com um usuário...

    If fOSUserName() <> "PEDRO" Then

    Me.Comando11.Visible = False

    End If


    thanks

    Leandro

    P.S. = A propriedade "Visível" do botão de comando está como "Sim"
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ocultar botão de comando se não forem os usuários X/Y Empty Re: [Resolvido]Ocultar botão de comando se não forem os usuários X/Y

    Mensagem  Avelino Sampaio 13/2/2014, 14:46

    Olá!

    Melhor usar o SELECT CASE

    SELECT CASE fOSUserName()
      Case "João","pedro"
         Me.Comando11.Visible = False
      case else
         Me.Comando11.Visible = true
    end if


    Assim poderá acrescentar usuários com mais facilidade

    Ou

    Me.Comando11.Visible = eval("fOSUserName() not in('joão','pedro')")

    Não agradou muito colocar nomes de usuários no código.  E se o usuário for excluído? E se Pedro passar a ter direito de usar o botão vai ter que mexer no código ?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    L34NDR0
    L34NDR0
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    [Resolvido]Ocultar botão de comando se não forem os usuários X/Y Empty Re: [Resolvido]Ocultar botão de comando se não forem os usuários X/Y

    Mensagem  L34NDR0 13/2/2014, 15:02

    é, a questão dos nomes tem sido um problema...

    tem uma maneira fácil de buscar os usuários em uma tabela?

    de resto, está resolvido. só mudei a linha para:

    Me.Comando11.Visible = eval("fOSUserName() in('joão','pedro')")

    (tirei o "not")

    agradecido

    Leandro
    avatar
    robson_cabral
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 07/12/2013

    [Resolvido]Ocultar botão de comando se não forem os usuários X/Y Empty Re: [Resolvido]Ocultar botão de comando se não forem os usuários X/Y

    Mensagem  robson_cabral 22/3/2014, 20:08

    amigos num teria um destes códigos para o grupo de usuários?

    Digo se for do grupo Admin true, grupo usuário false?
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Ocultar botão de comando se não forem os usuários X/Y Empty [Resolvido]Ocultar botão de comando se não forem os usuários X/Y

    Mensagem  toyebom 22/3/2014, 20:48

    robson, o critério é o mesmo, em vez de colocares o nome do utilizador mudas para a função ou seja administrador ou utilizador

    Me.Comando11.Visible = eval("fOSUserName() in('administrador')")

    ou

    SELECT CASE fOSUsertipe()
    Case "user"
    Me.Comando11.Visible = False
    case else
    Me.Comando11.Visible = true
    end if


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Conteúdo patrocinado


    [Resolvido]Ocultar botão de comando se não forem os usuários X/Y Empty Re: [Resolvido]Ocultar botão de comando se não forem os usuários X/Y

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 04:12