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

    [Resolvido]Usuário logado em todas as forms.

    avatar
    MMousinho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 02/08/2016

    [Resolvido]Usuário logado em todas as forms. Empty [Resolvido]Usuário logado em todas as forms.

    Mensagem  MMousinho Seg 11 Set 2017, 15:27

    Pessoal, tenho um banco de dados onde quero colocar em todos os forms  o Usuário que esta Logado, poderiam me ajudar?

    Segue em anexo o banco de dados.
    Anexos
    [Resolvido]Usuário logado em todas as forms. AttachmentDatabase21.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (268 Kb) Baixado 22 vez(es)
    avatar
    daygdson
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 20/04/2017

    [Resolvido]Usuário logado em todas as forms. Empty Re: [Resolvido]Usuário logado em todas as forms.

    Mensagem  daygdson Seg 11 Set 2017, 20:43

    Caro MMousinho, não sei se vai lhe servir, mas eu utilizei o seguinte código ao carregar o formulário que você quer mostrar o usuário logado

    1 - Crie uma caixa não acoplada no seu formulário que você quer mostrar o nome de usuário

    Ao carregar o formulário que receberá o nome de usuário insere este código

    Código:
    Private Sub Form_Load()

    'Estou dizendo que minha caixa acoplada Me.usuario_logado está recebendo do formulário de login o usuário de logon
    Me.usuario_logado = Forms![FORM_LOGIN]![usuario_de_logon]

    End Sub


    é simples e pra mim funcionou
    avatar
    daygdson
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 20/04/2017

    [Resolvido]Usuário logado em todas as forms. Empty Re: [Resolvido]Usuário logado em todas as forms.

    Mensagem  daygdson Seg 11 Set 2017, 21:46

    Fiz uma alteração no seu banco, utilizei a mesma sintaxe do código acima

    Criei uma caixa não acoplada no formulário de login "usuarioAtivo" para receber o valor da caixa txt_usuario
    No formulário 'Inicio" coloquei outra caixa não acoplada como nome de "cxUsuarioAtivo" no rodapé do formulário. No evento ao carregar do formulário chamei o valor da caixa "UsuarioAtivo" do formulário "Login"  para preencher a caixa do formulário "Inicio"...

    Importante: Para que tivesse o efeito desejado inverti a posição do código abaixo no evento em ao clicar no botão de logon

    If IsEmpty(NOMEUSU) Or IsEmpty(SENUSU) Then
    MsgBox "Preencha os Campos..", vbOKOnly + vbCritical, "Impossível Acessar!!"

    Else
       If ExisteUsuario(NOMEUSU, SENUSU) Then
       
     
       DoCmd.OpenForm "INICIO", acNormal, "", "", , acNormal 'Inverti a posição, primeiro abre o formulario
       DoCmd.Close acForm, "Login", acSaveYes 'Depois fecha o formulário de login
       'Porque se encerrar o formulario de login primeiro, o formulário de início não iria encontrar a referência
     
    MsgBox "Bem Vindo Ao SisLojasMM", vbOKOnly, "Bem Vindo"
       




    ...acho que expliquei ...rsr

    No mais você faz o mesmo procedimento nos outros formulários e veja o resultado, bons estudos.

    Dica: Sempre nomeie as caixas de texto, caixas não acopladas, botões etc... para você não se perder na programação
    Anexos
    [Resolvido]Usuário logado em todas as forms. AttachmentDatabase21_novo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (599 Kb) Baixado 57 vez(es)
    avatar
    MMousinho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 02/08/2016

    [Resolvido]Usuário logado em todas as forms. Empty Re: [Resolvido]Usuário logado em todas as forms.

    Mensagem  MMousinho Sex 15 Set 2017, 15:13

    Obrigado man, exatamente o que eu queria muito obrigado.
    avatar
    daygdson
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 20/04/2017

    [Resolvido]Usuário logado em todas as forms. Empty Re: [Resolvido]Usuário logado em todas as forms.

    Mensagem  daygdson Sex 15 Set 2017, 16:49

    Fico feliz em ajudar, o Fórum agradece seu retorno, não esqueça de colocar o tópico com resolvido!
    avatar
    MMousinho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 02/08/2016

    [Resolvido]Usuário logado em todas as forms. Empty Re: [Resolvido]Usuário logado em todas as forms.

    Mensagem  MMousinho Seg 28 Maio 2018, 11:00

    Resolvido!!

      Data/hora atual: Qua 16 Jun 2021, 11:01