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]Configurando o acesso dos usuários

    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 20/01/2013

    [Resolvido]Configurando o acesso dos usuários Empty [Resolvido]Configurando o acesso dos usuários

    Mensagem  João Ricardo 14/8/2014, 04:33

    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


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 
    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]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  Avelino Sampaio 14/8/2014, 08:41

    Olá!

    A explicação do argumento OpenArgs está neste meu artigo:

    http://www.usandoaccess.com.br/dicas/dica21.asp?id=1&idlista=51#inicio

    Bom estudo!



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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 20/01/2013

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  João Ricardo 14/8/2014, 13:22

    Grande Avelino, muito obrigado!

     cheers  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:

     Embarassed   Question   scratch  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.  study   affraid 

    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.


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  Noobezinho 14/8/2014, 17:00

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 20/01/2013

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  João Ricardo 15/8/2014, 04:02

    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!!


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  Noobezinho 15/8/2014, 12:08

    Exatamente

    Tenha atenção ao fazer isso , meu amigo Wink 


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 20/01/2013

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  João Ricardo 15/8/2014, 12:24

    Valeu pelo retorno,

    agora, mãos à obra.

    Retorno em breve para relatar como está o processo.

    Grato novamente.


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  Noobezinho 15/8/2014, 12:41

    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.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 20/01/2013

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  João Ricardo 15/8/2014, 13:46

    Ok!
     Embarassed 


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 20/01/2013

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  João Ricardo 15/8/2014, 14:57

    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!


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 20/01/2013

    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  João Ricardo 28/8/2014, 13:25

    Ok!


    .................................................................................
     cheers Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  study   scratch 

    Conteúdo patrocinado


    [Resolvido]Configurando o acesso dos usuários Empty Re: [Resolvido]Configurando o acesso dos usuários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:55