MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Controle de Acesso, liberação de telas....

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 02/08/2018

    [Resolvido]Controle de Acesso, liberação de telas.... Empty [Resolvido]Controle de Acesso, liberação de telas....

    Mensagem  mfmaiafilho em 22/4/2020, 16:06

    bom dia galera tenho um projeto que ainda está em andamento porém, preciso ter esse controle de acesso

    já tenho uma tela de Login, porém não serve pra nada, apenas pra deixar restrito uma das telas com outras autorizações.

    queria colocar na tela principal a tela de Login, porém no Frm Menu queria mostrar o nome do usuario que está logado...


    Última edição por mfmaiafilho em 27/4/2020, 12:44, editado 2 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1259
    Registrado : 23/01/2018

    [Resolvido]Controle de Acesso, liberação de telas.... Empty Re: [Resolvido]Controle de Acesso, liberação de telas....

    Mensagem  crysostomo em 23/4/2020, 03:04

    Boa noite

    Código:
    Forms!Aqui o formulário que você vai abrir !Aqui o campo que vai mostrar o usuário logado= Forms!aqui o formulário do login!o campo do nome do usuario

    Obs o frm login tem que ficar  aberto


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 02/08/2018

    [Resolvido]Controle de Acesso, liberação de telas.... Empty Re: [Resolvido]Controle de Acesso, liberação de telas....

    Mensagem  mfmaiafilho em 23/4/2020, 21:01

    nao tem uma maneira de ficar registrado no campo mesmo com a frm_login fechada ?
    avatar
    TomasJDS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/03/2020

    [Resolvido]Controle de Acesso, liberação de telas.... Empty revisão de tópico

    Mensagem  TomasJDS em 24/4/2020, 15:50

    Bom dia!

    Código:
    Forms!Menu.lbl_usuario.Caption = "Administrador"

    Menu = Formulário de capa contendo o Menu.
    lbl_usuario = Campo de texto criando no formulário (não contem vínculo com nenhuma tabela)

    Não precisa manter aberto, tela de login

    Segue abaixo programação de uma tela de login + Menu.
    Código:
    Private Sub btn_login_Click()
    Dim nivel
        If IsNull(Me.txt_usuario) Then
            MsgBox "Preencha o campo usuário", vbInformation, "Preencha os Campos"
            Me.txt_usuario.SetFocus
            ElseIf IsNull(Me.txt_senha) Then
            MsgBox "Preencha o campo senha", vbInformation, "Preencha os Campos"
            Me.txt_senha.SetFocus
            Else
            If (IsNull(DLookup("[usuario]", "Usuarios", "[usuario] = '" & Me.txt_usuario.Value & "' And senha = '" & Me.txt_senha.Value & "'"))) Then
                MsgBox "Senha ou usuário incorreto", vbInformation, "Dados Incorretos"
                Else
                nivel = DLookup("[nivel]", "Usuarios", "usuario = '" & Me.txt_usuario.Value & "'")
                If nivel = 1 Then
                     MsgBox "Bem vindo Administrador", vbInformation, "Entrar"
                     DoCmd.Close
                     DoCmd.OpenForm "Menu"
                     Forms!Menu.lbl_usuario.Caption = "Administrador"
                          Else
                              MsgBox "Bem vindo Usuário", vbInformation, "Entrar"
                              DoCmd.Close
                              DoCmd.OpenForm "Menu"
                              Forms!Menu.lbl_usuario.Caption = "Usuário"
                End If
            End If
        End If
    End Sub
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1259
    Registrado : 23/01/2018

    [Resolvido]Controle de Acesso, liberação de telas.... Empty Re: [Resolvido]Controle de Acesso, liberação de telas....

    Mensagem  crysostomo em 25/4/2020, 01:15

    Boa noite , com a janela do login fechado ele não vai encontrar o campo .
    O  login coloca ele invisível , ou seja quando der ok no login para abrir o formulário do "painel" coloco assim
    no botão de abrir
    Código:
    Private Sub Comando0_Click()
        DoCmd.OpenForm "from2"
        DoCmd.OpenForm "form1", , , , , acHidden
    End Sub
    Quando for voltar para o formulario principal não coloca o acHidden

    Obs: Na próxima vez eu recomendo você anexar a parte do arquivo que pretende ser corrigida/suporte, para que seja mais rápida a ajuda.
    Anexos
    [Resolvido]Controle de Acesso, liberação de telas.... Attachmentmostrar quem está logado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 19 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 02/08/2018

    [Resolvido]Controle de Acesso, liberação de telas.... Empty Re: [Resolvido]Controle de Acesso, liberação de telas....

    Mensagem  mfmaiafilho em 27/4/2020, 12:44

    obrigado por ajudarem !
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1259
    Registrado : 23/01/2018

    [Resolvido]Controle de Acesso, liberação de telas.... Empty Re: [Resolvido]Controle de Acesso, liberação de telas....

    Mensagem  crysostomo em 27/4/2020, 13:52

    Sucesso


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 8/7/2020, 07:40