[Resolvido]Configurando o acesso dos usuários

Amigos, boa noite!
Estou implementando em um banco de dados o sistema de login que interage com as Ribbons. Estou tendo dificuldades para entender o funcionamento do processo e busco a ajuda dos colegas.

Na função fncOnAction eu não entendi a forma como as atribuições aos botões da Ribbon foram feitas, ou melhor, por que foram feitas dessa forma.

Código:

    Case "btInfo"
        DoCmd.OpenForm "frmSobre", , , , , acWindowNormal
    Case "btusuario"
        DoCmd.OpenForm "frmUsuários", , , , , , 1
    Case "btpermissao"
        DoCmd.OpenForm "frmPermissõesGrupos", , , , , , 1
    Case "btGrupos"
        DoCmd.OpenForm "frmGrupos", , , , , , 1


Eu creio que seja para atribuir as permissões, mas na escrita Xml da Ribbon não há nenhuma referência à essa parte (, , , , , , 1)

O que tenho usado, obviamente sem o controle de acesso, é DoCmd.OpenForm "frmGrupos"

Caso queiram dar uma olhada, segue o BD.

Farmácia Hospitalar

Grande Avelino, muito obrigado!

   Compreendi o funcionamento lendo o artigo e estudando os códigos no modRibbon e no VBA dos formulários que se valem desse recurso.

O bloqueio das funções específicas de cada formulário, de acordo com o usuário logado, como impressão, inserção de dados e outros, eu aprendi como fazer, mas preciso de ajuda para compreender outros três recursos:

         Dentre as três dúvidas abaixo, confesso que não sei se há uma sequência para resolvê-las ou são independentes, ou seja, não sei o que deve ser feito primeiro

1 - Como bloquear o acesso de um usuário às informações que são do grupo de administradores, como por exemplo, cadastrar novos usuários e/ou alterar as permissões dos já existentes;

2 - Não permitir que um determinado usuário tenha acesso aos botões das Ribbons. Confesso que assisti aos vídeos do Monta Ribbons, mas ainda tá pegando.      

3 - Preencher campos específicos dos formulários com o nome dos usuários logados. Nesse caso são os responsáveis pelos registros. Essa informação não precisa aparecer nestes campos dos formulários, mas preciso delas nos campos dos relatórios, daí poderiam ficar gravadas na tabela e, qdo fossem gerados os relatórios, estes dados seriam impressos neles.

No aplicativo Maestro, qdo se faz o login, a função fncTítuloUsuário indica o tempo todo quem está logado, mas eu preciso dessa informação em um relatório para indicar quem usou o aplicativo para determinados registros.

João

Antes de tudo

-A função fncOnAction ()   serve para abrir os formulários de acordo com o botão da ribbons clicado.
   Está faltando (você apagou)  o case para o frmGrupos, veja que clicando no menu  ele não abre
Você  desativou, colocando aspas simples (') e assim ficando em verde duas funções importantes e que são juntas, o coração
da segurança:

- Função: fncGetVisible
  Essa função deixa o botão invisivel de acordo com a Tag  ( na tabela UsysRibbons) dele.
  Por exemplo:
  Case 1002 'grpsegurança
       If login.idGrupo = 1 Or login.idGrupo = 2 Then
           visible = True
       Else
           visible = False
       End If
 A função verifica se a tag é 1002, (do grupo segurança, se sim continua e verifica  se o usuário é  do grupo 1 ou 2
 se sim fica visivel se não fica invisível.
 Já explico sobre 0 usuário.  

- Função: fncGetEnabled
             Essa função irá deixar o botão da ribbon ativado ou desativado conforme o grupo do usuário logado.
             Isso também é feito de acordo com a tag do botão e o login do usuário.

Vamos às tuas perguntas:
1ª Pergunta:

- Primeiro cadastra os grupos de usuários no sistema
- Define as permissões desses grupos, qual grupo irá abrir qual formulário.
  Veja que no formulário permissões de grupo, clicando em um grupo irá aparecer todos
  os formulário do aplicativo, então clica-se no formulário que quer definir pra esse grupo
  e nas demais opções abaixo.
- Cadastra-se novos usuários, é só ir na ribbon cadastrar usuários e abrir o form.
  Veja que ja no cadastro define-se o grupo em que o usuário irá pertencer.
  Nesse form também pode alterar os dados do usuário, inclusive o grupo.

2ª Pergunta:
   Uma vez que cada usuário está definido com o seu grupo e cada grupo definido qual ou quais formulários abrir,
   o usuário de um grupo não irá abrir formulário de outro, porque os botões estão esmaecido para ele ou nem
   aparecerão na ribbon.
3ª Pergunta:

   No sistema tem a variável global de nome login
   Ela é declarada no mod_login:
   Public login As login
Type login
   id  As Long
   Usuario As String * 50
   idGrupo As Long
End Type

E recebe os valores do formulário frmLogin
   
    'repassa a identificação do usuário para a variável login
   login.id = .Column(0)  'IdUsuário
   login.Usuario = .Column(1) 'Nome do usuário
   login.idGrupo = .Column(3) 'Grupo do usuário

Então sempre que quiser colocar o nome do usuário atual:
   login.Usuario

Para o grupo do usuário:
 login.idgrupo

É isso

Noob

Muito bom e muito obrigado!!!

Corrija-me se estiver errado.
Para fazer funcionar como deve, terei que configurar o valor da Tag de cada botão e passar essa informação para as funções fncGetVisible e fncGetEnabled, correto?

Mais uma vez muito obrigado e parabéns pelos conhecimentos!!

Exatamente

Tenha atenção ao fazer isso , meu amigo  


Noob

Valeu pelo retorno,

agora, mãos à obra.

Retorno em breve para relatar como está o processo.

Grato novamente.

João

Você abriu outro tópico com o mesmo assunto e isso não pode.

Como pode ver, um tópico já basta.

Vou apagar aquele tópico, já que as informações se repetem.

Ok!
  

Olá meu amigo!


No meu banco de dados se o usuário tem acesso a um form ele pode acessar qq função no mesmo, portanto eu desabilitei as funções de atualizar, imprimir, gráfico, excluir e inserir.. Fiz isso no próprio frmPermissõesGrupos e mantive as marcações na tblPermissões.
Não sei se isso pode causar problema na estrutura interna no VBA. Vi que a fncPermissões do mod_Login usa essa informação.

Eu configurei os grupos e defini as permissões para cada um. Fiz através de uma tabela no Word para me organizar melhor e depois passei para o banco de dados através do frmPermissõesGrupos.

Eu compreendi que terei que configurar o valor da Tag de cada botão e passar essa informação para as funções fncGetVisible e fncGetEnabled, mas até à configuração na Ribbon creio ter feito certo, mas não consigo passar para o VBA.

Outra coisa, não vou usar a fncGetEnabled porque estou preferindo deixar os botões visíveis ou não, ao invés de esmaecidos. Isso traria algum problema para o funcionamento do BD? Penso que não, mas me corrija se estiver errado.

O arquivo anexo tem o BD com alguns comentários na fncGetVisible e a tabela do Word com as configurações dos grupos.
Se for possível, sem abusar da boa vontade, configure pelo menos o acesso de um grupo de usuários e retire (comente entre aspas) o que não vou precisar usar nos módulos.

Farmácia para Download

Mais uma vez, muito obrigado!

Ok!