MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Mostrar Usuário Logado (Vários Fomulários)

    Compartilhe

    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 10/12/2013

    [Resolvido]Mostrar Usuário Logado (Vários Fomulários)

    Mensagem  pengo em Seg 12 Maio 2014, 22:17

    Boa Tarde Pessoal,

    Tenho um formulário de login, onde, conforme o usuário que acessa o banco de dados é aberto um formulário diferente, pois bem, eu gostaria de mostrar no formulário que abrir quem está logado.

    Meu código no fomulário de login ao clicar em "login" é este abaixo.
    Código:
    Private Sub cmdEntrar_Click()
    Dim Identificacao As Integer

        If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
            Identificacao = DLookup("[Código]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
            Select Case Identificacao
                Case 2
                    stDocName = "Inicio_N1_FT"
                Case 4
                    stDocName = "Inicio_N2_FT"
                Case 6
                    stDocName = "Inicio_N3"
                Case 10
                    stDocName = "Inicio_N1_FS"
                Case 20
                    stDocName = "Inicio_N2_FS"
                Case 30
                    stDocName = "Inicio_N3"
                Case 3
                    stDocName = "Inicio_N3"
            End Select
            DoCmd.Close
            DoCmd.OpenForm stDocName

          Else
            MsgBox "Dados Incorretos, digite novamente!", vbInformation + vbOKOnly, "Erro"
            Me.txtSenha.Value = ""
            Exit Sub
        End If

    End Sub

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Mostrar Usuário Logado (Vários Fomulários)

    Mensagem  HARYSOHN em Seg 12 Maio 2014, 23:14

    Em um módulo crie uma variável pública

    Public strUser as string



    E no evento de comparação da senha.. após confirmada a senha carregue esta variável com o usuário que logou.

    strUser = Me.txtUser...

    Agora podes utilizá-la em qualquer formulário no evento ao carregar do formulário...
    Carregue uma caixa texto ou rótulo com esta variável

    Me.Rotulo.Caption = strUser
    ou
    Me.CaixaTexto = StrUser


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 10/12/2013

    Re: [Resolvido]Mostrar Usuário Logado (Vários Fomulários)

    Mensagem  pengo em Qua 14 Maio 2014, 13:39

    Muito Obrigado HARYSOHN,

    Ficou muito Show, funcionou certinho, já tinha procurado aqui no fórum e nenhuma das que eu tinha encontrado havia funcionado.

    Fica aqui o meu muito obrigado pela ajuda.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Mostrar Usuário Logado (Vários Fomulários)

    Mensagem  HARYSOHN em Qui 15 Maio 2014, 21:38

    O Fórum agradece o Retorno


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qui 08 Dez 2016, 14:07