MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Controle de Acesso a Usuários - Esconder Guia em Formulário

    Compartilhe

    paulo_ha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 09/09/2017

    Controle de Acesso a Usuários - Esconder Guia em Formulário

    Mensagem  paulo_ha em Seg 14 Maio 2018, 1:25 am

    Olá a todos !
    Tenho um formulário com login de acesso para diversos usuários, onde cada usuário tem o seu username e senha pessoal.

    Preciso que alguém me ajude, para que no momento em que o usuário entrar com seu nome e senha, abra somente a guia que estiver habilitada ao próprio usuário, e as demais guias fiquem ocultas.

    Segue um anexo com exemplo.
    Obs: Nesse arquivo anexo só consegui chegar até a parte do usuário.
    Só está faltando "amarrar" com a senha do mesmo.

    Agradeço desde já quem puder me ajudar.

    att.
    Paulo
    Anexos
    EsconderGuia - Cópia Teste 1.zip
    vide anexo esconder guia
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 21 vez(es)
    avatar
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 07/09/2012

    Re: Controle de Acesso a Usuários - Esconder Guia em Formulário

    Mensagem  Maicon em Seg 14 Maio 2018, 2:25 am

    Sugestões abaixo alterei o nome do campo senha para txt_senha , também lá em formato escolhi a máscara de entrada tipo senha.
    No campo cboUsuario , vá em propriedades e número de colunas e escolha 3 abaixo largura das colunas defina : 0cm;2,544cm;0cm
    Na guia dados vá em origem da linha e clique em ... , vai abrir o design de consulta acrescente o campo senha.
    Entenda o seguinte :
    -------------------------------------------------------------------------------------------------
    IdUsuario = Column(0)
    Usuario   = Column(1)
    senha     = Column(2)
    -------------------------------------------------------------------------------------------------
    Código:
    Private Sub btOk_Click()
    If IsNull(Me!cboUsuario) Then Exit Sub
    If Me.cboUsuario.Column(2) <> Me.txt_senha Then
    MsgBox "Senha,Incorreta!!"
    Me.cboUsuario.Value = ""
    Me.txt_senha.Value = ""

    Veja meu exemplo = "http://www.maximoaccess.com/t16065-exemplo-de-login-com-niveis-de-acesso-dois-exemplos-um-usando-macros-e-outro-vba?highlight=login"

    no repositório há varios outros tipos de exemplos mas creio que tu pode

    Else
    '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 If
    End Sub

    Troque no evento ao abrir do Subform.

    Private Sub Form_Load()
    Me.cboUsuario.Value = ""
    Me.txt_senha.Value = ""
    End Sub

    Não esquece de remover as variáveis temporárias ao fazer logof ou sair do formulário :
    Código:
    TempVars.Remove "TempVars!idUsuario)"
    veja meu exemplo: "http://www.maximoaccess.com/t16065-exemplo-de-login-com-niveis-de-acesso-dois-exemplos-um-usando-macros-e-outro-vba?highlight=login"

    Vá no repositório de exemplos aqui do fórum e veja vários outros exemplos interessantes este meu é bem básico mas já ajuda.


    .................................................................................
    "Uma pessoa que nunca cometeu um erro, nunca tentou nada novo."
    Albert Einstein

    Bons Estudos.

      Data/hora atual: Ter 16 Out 2018, 6:35 am