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

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

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.

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.

O Fórum agradece o Retorno