[Resolvido]Configurar acesso de usuários por grupos

Amigos, bom dia!
Estou de férias e o acesso à internet está meio complicado.


Estou postando um bd onde preciso de ajuda para configurar o acesso dos usuários ao sistema, de acordo com as Ribbons.

Já estudei o VBA do bd, mas meu conhecimento é pequeno e a dificuldade ainda é grande

Grato a todos que participarem.

Abraços

Download

Boa tarde João, estude esse exemplo.. Login com ribbon e niveis de acesso

O exemplo esta bem completo e facil de entender, tente adapta-lo em seu projeto.

http://maximoaccess.forumeiros.com/t12053-exemplo-de-login-por-nivel-funcoes-interessantes?highlight=login+com+ribons

João

Tentei abrir teu aplicativo, mas ele abre e fecha de imediato.

Eu também postei um exemplo de acesso de usuários com nível de grupo.

Você pode baixa-lo aqui

Abraços

Noob

Amigos, desculpem-me pela demora em dar retorno.
Estive de férias e aproveitei para iniciar a construção de uma casa. A correria foi maior que qdo estou no trabalho e olha que as coisas por aqui são puxadas.
Estou postando o link que, acredito eu, o arquivo deverá funcionar.

Também vou baixar agora os arquivos que me indicaram para o estudo.

Muito obrigado.

Abraços

Download

Olá meus amigos, desculpem o incômodo!

Estou tentando implementar as Ribbons, mas isso já está me tirando do sério comigo mesmo!

Tenho que começar a implementar as funcionalidades por onde: Módulo Login, ou Módulo Ribbon?
Tenho outras dificuldades mas não sei por onde começar a explicar.
Se puderem dar uma mão, mais uma vez, agradeço.

Valeu!!!

Boa tarde João,

A tabela USysRibbons você irá configurar os botões, labels enfim tudo que vai aparecer na ribbon,

indo em opções de navegação / mostrar objetos do sistema conseguirá visualizar essa tabela.

No modulo, geralmente basRibbonCallbacks depende do exemplo pode ser outro nome você

irá atribuir as funcionalidades de cada botão da Ribbon.

Qualquer duvida estamos por aqui.

Obrigado amigo!
Eu já tenho a Ribbon montada pelo Monta Ribbons. Ela já está no sistema, mas agora eu tenho que configurar quais os botões irão aparecer para cada grupo de usuário.
Eu tenho no sistema os módulos Mod_Ribbon, Mod_getRibbon e Mod_Picture. O Mod_Login também está lá, mas não mexi com ele.

Qdo vc fala em funcionalidades de cada botão da Ribbon vc se refere ao comando abaixo? Segue exemplo de outro sistema com Ribbons sem controle de aceso.

Os comando abaixo estão no Mod_Ribbon.

Código:

Public Sub fncOnAction(control As IRibbonControl)
On Error GoTo TrataErro
Select Case control.id
'-----------
'Formulários
'-----------
    Case "btAlunos"
        DoCmd.OpenForm "frmAlunos"
'    Case "btOcorrências"
'       DoCmd.OpenForm "frmCadastraOcorrencia"
'    Case "btDestinos"
'        DoCmd.OpenForm "frmDestinoSaida"
    Case "btDistribuiçãoUniforme"
        DoCmd.OpenForm "frmDistribuicaoDoUniforme"
    Case "btFuncionários"
        DoCmd.OpenForm "frmFuncionarios"
    Case "btMunicípios"
        DoCmd.OpenForm "frmMunicipios"
'    Case "btPeçaUniforme"
'        DoCmd.OpenForm "frmPecaUniforme"
'    Case "btRegistroOcorrênicas"
'        DoCmd.OpenForm "frmRegistroOcorrencia"
    Case "btRelatórios"
        DoCmd.OpenForm "frmRelatorios"

Se for isso, até aqui vou bem. Mas me parece que para implementar o acesso de usuário, este processo é diferente. Pelo menos não vi isso nos exemplos que baixei.

Ok, entendi onde esta sua duvida..

Observe que no topico que te passei do exemplo tem uma tabela para nivel, outra para grupo.

Veja o modulo ControleAcesso

João

O código que postou está correto, desde que na tabela da Ribbon esteja
definida a mesma ID para o botão:

Exemplo:
Na tabela UsysRibbons
id = "btAlunos"
imageMso = "DistributionListSelectMembers"
label = "Alunos"
getVisible = "fncGetVisible" 'essas linha daqui para baixo, é para definir qual usuário ou grupo  poderá ver ou não o esse botão.
onAction = "fncOnAction"
tag="1"
/>

No Código:
Case "btAlunos"
       DoCmd.OpenForm "frmAlunos"

Então o Access entenderá que quano for clicado o botão Alunos, deverá abrir o formulário frmAlunos.


***Meu pc "baixou enfermaria", por isso a demora em responder.

Abraços

Noob

Amigos, muito obrigado!

Fernando eu achei o exemplo que vc enviou muito bom porque é completo e funcional. A questão é o meu nível de conhecimento em VBA     . Ainda to suando muito para compreender     .
Vou continuar estudando, mas no momento vou optar pelo formato usado pelo Noobezinho. Para meu nível de conhecimento creio que será mais fácil de implementar.
Por favor, continue participando da discussão e ajuda, claro, pois tem sido de grande valia.

Vou implementar as funcionalidades em todos os botões da Ribbon e depois vou precisar de ajuda para configurar o acesso a partir do login.
Como faço para que o nome do responsável (usuário logado) apareça automaticamente no campo específico do formulário.

Noob, boa sorte com seu micro hospitalizado.

João

Acredito que esse tópico esteja resolvido, se sim, por favor feche-o
colocando o resolvido no título do tópico.

Como pode ver meu pc já ganhou "Alta" do hospital  

Boa sorte

Noob

Ok!
Vou dar como resolvido e, as dúvidas que por ventura surgirem no sistema de login eu abro outro tópico referente.

Obrigado a todos.

Ótimo meu amigo

Qualquer coisa é só dar um GRITO, que estamos aqui pra isso   

Valeu o retorno

Boa sorte!


Noob