MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    avatar
    paulo_ha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  paulo_ha 14/5/2018, 06:25

    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
    Controle de Acesso a Usuários - Esconder Guia em Formulário AttachmentEsconderGuia - Cópia Teste 1.zip
    vide anexo esconder guia
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 38 vez(es)
    Maicon
    Maicon
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 267
    Registrado : 08/09/2012

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

    Mensagem  Maicon 14/5/2018, 07:25

    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: "https://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.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.

      Data/hora atual: 24/11/2024, 07:12