[Resolvido]Nome do Usuário logado aparece no form principal

Gostaria que alguém me ajudasse em um problema tenho um BD de vendas gostaria que quando um usuário logasse no sistema o nome do usuário aparecesse no form principal vi aqui alguns exemplos mas não entendi sera que alguém tem uma solução?

Esse usuário seria o usuário logado no Windows ou o usuário cadastrado no aplicativo?

Seria o Usuário logado no aplicativo e não no windows.

Como é feito o processo de logon? O usuário insere user e password e clica em um botão que abre outro formulário? Se for, você pode transportar o user para um campo desse formulário que é aberto. No botão que abre ele, algo assim:

Forms!NomeDoForm!NomeDoCampo = Me.NomeDoCampoDoUser

Esse é o codigo do botao logo
onde é que eu encaixo esse codigo?


Private Sub btok_Click()

Dim strSenha1 As String
Dim strsenha2 As String
Dim K As Integer
On Error Resume Next
'-------------------------------------------------
'Verifica preenchimento dos campos usuário e senha
'-------------------------------------------------
If IsNull(Me!cboUsuário) Then
MsgBox "Digite o nome do usuário...", vbInformation, "Aviso"
Me!cboUsuário.SetFocus
Exit Sub
Else
If IsNull(Me!Senha) Then
MsgBox "Digite a senha...", vbInformation, "Aviso"
Me!Senha.SetFocus
Exit Sub
End If
End If

'-----------------------------------------------------
'Compara senha digitada com senha armazenada na tabela
'Se for a correta, repassa a identificação do usuário
'para a variável login que armazena o valor enquanto
'o aplicativo estiver aberto
'-----------------------------------------------------
With Me!cboUsuário

strSenha1 = "": strsenha2 = ""
If Len(.Column(2) & "") <> Len(Me!Senha & "") Then
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
Me!Senha.SetFocus
Exit Sub
End If
For K = 1 To Len(Me!Senha)
strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
Next K

If strSenha1 = strsenha2 Then

'repassa a identificação do usuário para a variável login
login.id = .Column(0) 'IdUsuário
login.Usuario = .Column(1) 'Nome do usuário

'esconde o formulário login
Me.Visible = False

'Carrega título do aplicativo com o nome do usuário logado
Call fncTítuloUsuário(.Column(1))

'--------------------------------
'Limpar campos do form login
'--------------------------------
Me!cboUsuário = Null: Me!Senha = Null
Me!cboUsuário.SetFocus


DoCmd.OpenForm "FrmAdministrador"

'If login.id = 1 Then DoCmd.OpenForm "FrmAdministrador"
'If login.id > 1 Then DoCmd.OpenForm "FrmAdministrador"

Else
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
Me!Senha.SetFocus
End If
End With
End Sub

Eu faço isso passando o nome para uma variável global.

Em um módulo, salve a Variável

Global strUsuario as String

E antes de abrir o formulário principal passe o valor do campo para a variável

strUsuario = me.cboUsuário

e Ao abrir seu formulario principal coloque Me.CampoUsuarioLogado = strUsuario

Eu não entendi o que quiz dizer:
E antes de abrir o formulário principal passe o valor do campo para a variável
que valor seria esse?

Disse valor, mas é o conteúdo do campo usuário, se tiver dúvidas poste o banco, que faço para você.

NO caso do nome de usuário, seria logo após a linha que abre o formulário.

Ai está meu BD Ve se Voces podem resover pra mim,ficarei grato

Segue, apenas mudei a senha para 123.

Valeu Cara!