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

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Ocultar Guias conforme usuário logado

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: