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


2 participantes

    MontaRibbon

    avatar
    Wilson90
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 59
    Registrado : 19/10/2015

    MontaRibbon  Empty MontaRibbon

    Mensagem  Wilson90 15/9/2017, 07:07

    Olá a todos.. gostaria de uma ajuda aqui com meu problemão....

    Estou usando o Montaribbon e está a funcionar perfeitamente... Mas o problema é que qualquer usuário pode cadastrar outros usuários, pode alterar permissão e até mesmo ver outros usuários com as respectivas senhas....

    Como eu faço para que só o administrador tenha acesso a permissão de usuários e cadastro de usuários? Já tentei pelos códigos "controls.id" "Select Case" não funciou... talvez esteja a fazer errado... alguém pode me ajudar aqui?
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Cláudio Machado 15/9/2017, 13:59

    Bom dia.

    Bem a forma mais correta e utilizar seria com tabela de permissão para o usuário.

    o botão deve estar desta forma: na tabela da Ribbon:

    id = "btUsuários"
    imageMso = "FileDocumentEncrypt"
    label = "Cadastro de Usuários"
    size="large"
    getVisible="fncGetVisible"
    supertip="Permissões e Cadastro de usuários"
    onAction = "fncOnAction"


    Esta opção em vermelho deve conter na Ribbon do botão.

    No módulo: mod_ribbon na função: fncGetVisible você pode colocar este código:

    Código:


    Case "btUsuários"
            If DLookup("btUsuários", "tblUSuariosPermissoes", "IdUsuario = " & login.id) = True Then
                visible = true
            Else
                visible = false
            End If


    Presumindo-se que você tenha uma tabela de permissões.

    Tente adaptar ao seu sistema.
    No aguardo.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha MontaRibbon  90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Wilson90
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 59
    Registrado : 19/10/2015

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Wilson90 15/9/2017, 23:54

    Gerou um erro ao carregar que diz o seguinte:

    "A expressão que você inseriu como parâmetro da consulta gerou este erro: btusuario"
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Cláudio Machado 16/9/2017, 00:06

    Sem saber a estrutura e os códigos do seu sistema fica difícil ajudar amigo.

    Posta alguma coisa pra gente analisar melhor.

    Abraço


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha MontaRibbon  90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Wilson90
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 59
    Registrado : 19/10/2015

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Wilson90 16/9/2017, 13:33

    Fiz o seguinte:

    No código XML utilizei os seguintes códigos:


    Código:
    <group id="grManutencao" label="Manutenção"
    getVisible = "fncGetVisible">

    <menu  id ="mnmanutencao" label="Abrir"
    imageMso = "FileCompactAndRepairDatabase"
    size="large" itemSize = "large">

    <button id="btbackup"
    label="Backup"
    imageMso="FileBackupDatabase"
    supertip="backup"
    onAction = "fncOnAction"
    tag="5"
    />

    <menuSeparator
    id = "mnm1"
    />

    <button idMso="FileCompactAndRepairDatabase" label="Compactar e Reparar" visible="true"/>

    <menuSeparator
    id = "mnm2"
    />

    <button id="btvincular"
    label="Refazer Vínculos"
    imageMso="RecurrenceEdit"
    supertip="Refazer vínculos com as tabelas"
    getEnabled = "fncGetEnabled"
    onAction = "fncOnAction"
    tag="5"
    />

    </menu>
    </group>



    E NO MODULO COLOQUEI O SEGUINTE CÓDIGO:

    Código:
    <group id="grSegurança" label="Segurança"
    getVisible = "fncGetVisible">

    <splitButton id="sbtseguranca" size="large">
    <menu itemSize="large" >

    <button id="btusuario"
    label="Cadastrar usuários"
    onAction="fncOnAction"
    imageMso="FileDocumentEncrypt"
    supertip="Abre formulário para incluir, editar ou excluir usuário."/>

    <button id="btpermissao"
    label="Permissões dos usuários"
    onAction="fncOnAction"
    imageMso="DatabasePermissions"
    supertip="Abre formulário para configurar permissões dos usuários."/>

    </menu>
    </splitButton>
    </group>



    SÓ QUE AGORA O GRUPO SEGURANÇA NÃO APARECE MAIS PARA NENHUM USUÁRIO ATÉ MESMO PARA O ADMINISTRADOR,


    Att: Os códigos são fui eu que criei só adaptei ao meu sistema.



    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Cláudio Machado 18/9/2017, 13:51

    Bom dia.
    Acho que têm um bocado de coisas erradas ai.

    1º No Seu XML não existe o botão
    btUsuario e btPermissao

    2º No módulo não pode utilizar esse código, ele é para ser usado no XML ou em uma tabela Ribbon.

    Amigo posta esta parte do seu sistema que te ajudo melhor.

    No aguardo.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha MontaRibbon  90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Wilson90
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 59
    Registrado : 19/10/2015

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Wilson90 23/9/2017, 07:04

    Tive de bloquear o acesso ao formulário de permissão de usuário.
    Mas o que gostaria mesmo é que este grupo não aparecesse.
    avatar
    Wilson90
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 59
    Registrado : 19/10/2015

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Wilson90 23/9/2017, 07:08

    Tive de bloquear o acesso ao formulário de permissão de usuário, mas gostaria que o grupo não aprecesse.

    A senha o usuário wilson é: 12345
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Cláudio Machado 25/9/2017, 13:28

    Bom dia.
    Amigo, difícil te ajudar sem ver a estrutura.
    Você postou usuário e senha? Pra quê?
    Agora que não entendi nada mesmo.

    Posta esta parte do sei sistema que fica mais fácil te ajudar.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha MontaRibbon  90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Wilson90
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 59
    Registrado : 19/10/2015

    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Wilson90 9/10/2017, 21:42

    Também coloquei o arquivo em anexo

    Conteúdo patrocinado


    MontaRibbon  Empty Re: MontaRibbon

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:40