bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Exibir Guias conforme usuário logado

Ocultar Guias conforme usuário logado

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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

Envie seu comentário: