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

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

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

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

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

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

Bacana meu amigo, ótimos estudos!