... 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

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: