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]Permissão de Grupo de Usuários

    Robystanley
    Robystanley
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 21/12/2015

    [Resolvido]Permissão de Grupo de Usuários Empty [Resolvido]Permissão de Grupo de Usuários

    Mensagem  Robystanley 26/2/2016, 04:20

    Olá Pessoal!

    Estou tendo um problema com permissão de  grupos de usuários; somente consigo bloquear os botões do meu form principal, de acordo com o nome do usuário, quando coloco no código o nome do usuário. Gostaria de filtrar essa condição através do  Grupo do usuário, tipo "administradores" "Convidados"
    No meu Form Principal, coloquei na textBox o código: "=getUsuarioAtual1()" aí ele me retorna o nome do usuário logado; mas quando coloco o código "=getGrupoUsuarioAtual()" era para retornar o grupo do usuário, porém fica em branco.

    Código:
     If getUsuarioAtual = "Administradores" Then
      Me.BotãodeNavegação55.Visible = True

    Else
      
      Me.BotãodeNavegação55.Enabled = False
      Me.BotãodeNavegação45.Enabled = False
      
          End If  
     
    End Sub


    Segue link para o meu Banco: https://drive.google.com/file/d/0ByOnIRK3_8BrR3VVSDRQbnBETUk/view?usp=sharing
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Permissão de Grupo de Usuários Empty Re: [Resolvido]Permissão de Grupo de Usuários

    Mensagem  Cláudio Más 26/2/2016, 12:18

    Não consigo baixar o arquivo no formato accdb, teria que ser zipado.

    Mas observando o código, você está usando a propriedade visible em uma parte do if, e enabled na outra parte.
    Não deveria ser tudo visible?

    If getUsuarioAtual = "Administradores" Then
       Me.BotãodeNavegação55.Visible = True

    Else
     
       Me.BotãodeNavegação55.Visible = False
       Me.BotãodeNavegação45.Visible = False
     
    End If
    Robystanley
    Robystanley
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 21/12/2015

    [Resolvido]Permissão de Grupo de Usuários Empty Re: [Resolvido]Permissão de Grupo de Usuários

    Mensagem  Robystanley 26/2/2016, 13:28

    Olá Claudio!

    Muito obrigado pela resposta, eu corrigi o que vc disse e ficou assim:

    Código:
     If = getUsuarioAtual1 = "robson" Then
      Me.BotãodeNavegação55.Enabled = True
      Me.BotãodeNavegação45.Enabled = True
      
      ElseIf getUsuarioAtual1= "Teste01" Then
      
       Me.BotãodeNavegação55.Enabled = True
      Me.BotãodeNavegação45.Enabled = True
      
      
      
      Else
      
      Me.BotãodeNavegação55.Enabled = False
      Me.BotãodeNavegação45.Enabled = False
      
      
        End If
        
      
      
      
    End Sub


    porém, o que eu quero, é que o código ficasse assim:

    Código:
     If = getGrupoUsuarioAtual = "Administradores" Then
      Me.BotãodeNavegação55.Enabled = True
      Me.BotãodeNavegação45.Enabled = True
      
       ElseIf getGrupoUsuarioAtual = "Gerentes" Then
      
       Me.BotãodeNavegação55.Enabled = True
       Me.BotãodeNavegação45.Enabled = True
      
      
      Else
      
      Me.BotãodeNavegação55.Enabled = False
      Me.BotãodeNavegação45.Enabled = False
      
      
        End If

    Ao invés de bloquear alguns botões pelo nome do usuário, gostaria de bloquear pelo grupo do usuário; já zipei o arquivo, pode tentar baixar, obrigado.



    https://drive.google.com/file/d/0ByOnIRK3_8BrbkRVaWFHX0JfSDA/view?usp=sharing
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Permissão de Grupo de Usuários Empty Re: [Resolvido]Permissão de Grupo de Usuários

    Mensagem  FabioPaes 27/2/2016, 03:36

    Meu amigo o problema aee é na captura do Grupo...

    Bom veja esse exemplo que fiz, Bem simples...

    Em qualquer Formulário ou VB você pode Buscar o Usuário e Grupo Logado apenas assim:

    Usuario: loginU.Usuario
    Grupo: loginU.Grupo

    Para exibir algo ou bloquear basta colocar no evento ao carregar do Formulario:
    Código:

    'Nesse Caso eu ja coloquei os botoes bloqueados por padrão, assim nao precisa do ELSE.
      If loginU.Grupo = "Administrador" Or loginU.Grupo = "Gerente" Then
      Me.BotãodeNavegação55.Enabled = True
      Me.BotãodeNavegação45.Enabled = True
      
     End If

    Veja se é o que precisava....
    https://www.dropbox.com/s/a5icg1ag1evf424/Testando_Grupos-Modificado%20FabioPaes.zip?dl=0
    Robystanley
    Robystanley
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 21/12/2015

    [Resolvido]Permissão de Grupo de Usuários Empty Permissão de Grupo de Usuários

    Mensagem  Robystanley 27/2/2016, 04:12

    Boa noite Fábio!!!

    Mais uma vez a sua ajuda foi de imensa valia, agradeço de coração, vc deixou o Banco exatamente como eu precisava, eu fiquei tentando achar onde estava errando e, agora graças a Deus vc me passou essa nova visão do código; vou estudar o exemplo que me passou para cada dia mais, melhorar meu conhecimento e, um dia tbm poder ajudar a outros; gostaria tbm de agradecer o Cláudio pela ajuda fornecida, que Deus continue abençoando a cada dia mais a vida de vcs e seus familiares em o nome do Senhor Jesus!!! Valeuuuuu
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Permissão de Grupo de Usuários Empty Re: [Resolvido]Permissão de Grupo de Usuários

    Mensagem  FabioPaes 27/2/2016, 12:15

    Bacana meu amigo, ótimos estudos!

    Conteúdo patrocinado


    [Resolvido]Permissão de Grupo de Usuários Empty Re: [Resolvido]Permissão de Grupo de Usuários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:41