Ocultar Guias conforme usuário logado
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Paulo:
Bom dia!
Criei um sistema de controle de recebimento de materiais, onde optei por usar formulário com guias.
Cada guia corresponde a um tipo de assunto (Materiais - Recebimento - LCQ - Consulta Análise - Banco de Dados).
Preciso restringir uma das guias, no caso a guia LCQ, para os demais usuários que terão acesso ao sistema.
Sou assinante do Usando Access, e estou tentando aplicar os conceitos do Controle Personalizado de Acesso de Usuários (Maestro V.5.0), porém sem sucesso.
Você me dar um suporte para finalizar este trabalho?
Desde já, obrigado.
Suporte:
Paulo,
segue um exemplo bem simples que fiz para você:
| - | Abra a tabela tblUsuarios e observe que o usuário Avelino não tem permissão para acessar o LCQ. Feche a tabela. |
| - | Abra o formulário frmLogin e selecione o usuário Avelino. Clique em OK e veja a guia do formulário frmTeste sem o LCQ. Feche o formulário. |
| - | Abra novamente o formulário de login e escolha Admin ou Paulo. Clique em OK e veja a guia com o LCQ. |
Código utilizado no botão OK, do formulário de login:
Private Sub btOk_Click()
If IsNull(Me!cboUsuario) Then Exit Sub
'passando o número exclusivo do usuário para a variável global IdUsuario
TempVars!idUsuario = Me!cboUsuario.Column(0)
'fechando o formulário de login
DoCmd.Close acDefault
'abrindo o formulário de teste
DoCmd.OpenForm "frmTeste"
End Sub
Código utilizado no evento "Ao carregar" do formulário de teste:
Private Sub Form_Current()
'setando a guia LCQ, conforme permissão do usuário logado
Me!CtlGuia.Pages(2).Visible = DLookup("frmTeste_lcq", "tblUsuarios", "idUsuario = " & TempVars!idUsuario)
End Sub
Usuário Paulo:
Bom dia, Avelino.
Perfeito! Era isso mesmo que estava precisando.
Não pensei que era tão simples assim, pois estava quebrando a cabeça com os códigos.
Muito obrigado pela rápida resposta e pela prestatividade em me ajudar.
Quero postar aqui minha satisfação com este site, e pelo conteúdo do material que recebi ao contratar o plano de assinatura.
É o melhor material que já tive desde que comecei a trabalhar com o Microsoft Access.
Realmente muito satisfeito!!!
Download
| Não há comentário |
