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

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

    Compartilhe
    avatar
    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    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
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12231
    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.]
    avatar
    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12231
    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: Seg 25 Set 2017, 23:14