[Resolvido]Nome de usuario em relatorios

Bom dia, estou com uma duvida (dificuldade) que já pesquisei e não encontrei nada referente ao assunto, gostaria que aparecesse o nome do usuário logado em relatórios, em campos pre definidos como por exemplo no corpo de um texto fixo no relatório.

Bom dia,

1º Passo Crie um modulo (Modulo1) e insira este código:

Option Compare Database

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Retorna o login de rede
Dim lngLen As Long, lngX As Long
Dim strusername As String
strusername = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strusername, lngLen)
If lngX <> 0 Then
fOSUserName = left$(strusername, lngLen - 1)
Else
fOSUserName = ""
End If

End Function

-----------------------------------------------------------------------------------
2º Passo crie um campo no form onde irá abrir o seu relatório e na propriedade ao abrir form introduza este código:

Me.SeuCampo = Module1.fOSUserName

------------------------------------------------------------------------------------------

Ao abrir o form ele irá preencher seu campo com o nome do usuario logado.
Só tem que no seu relatório criar um campo onde você quizer e colocar o seguinte código na origem dados:

=[Formularios]![SeuForm]![SeuCampo]

Ps: Não se esqueça que ao abrir relatório não pode fechar o seu form, tem que ficar sobreposto.
Eu tambem nunca tentei aplicar o seguinte código directamente no relatório, pode ser que funciona e não tenha que criar campo no form.

Abraço... qualquer duvida disponha.

Fiz alguma coisa errada, pois não funcionou, no formulário eu vou colocar o código no botão onde aciona o relatório?

o 2º Passo é para adicionar no evento ao abrir formulario.

Não se esqueça de alterar codigo de acordo com o nome dos seus campos e formularios.
Caso precise ajuda posta aqui sua BD

Desculpe a ignorância, não consegui ta dando erro.

eu estou usando o maestro do mestre Avelino, se puder me ajudar com isso fico grato.

Só uma duvida...
Quando você se refere ao usuario logado é o usuario do computador ou usuario da sua BD??

do BD

Desculpa entao...o codigo acima é para retornar o nome do usuario logado na maquina.
Mas para o seu caso, basta no form onde faz o login, criar um campo que recebe o nome do usuario e o form Login não pode ser fechado, mas sim escondido(invisivel).
Depois no seu Relatório basta apontar os dados de origem do campo do relatorio para o campo do form m"login" que contem o nome do usuario.

Valeu, mas vc pode me explicar o código pra isso.

No campo do seu relatório basta no evento Dados de origem do seu campo:
=[Formulários]![NomeDoFormLogin]![NomeCampoComNomeUsuario]

Abraço....

Veja exemplo rapido....

https://www.wetransfer.com/downloads/be7c564c918bd99c0e49d43ce3e5072020150402131811/6a8a7cdaf04f81a82969f6c6ad174eea20150402131811/dd8c0a

Abraço...

=[Formulários]![frmLogin]![Usuário]

aparece a mensagem de erro
o nome que consta no campo login para o usuario é [cboUsuário], mas tambem não funciona.

Já fez download exemplo que postei?

Roberto_1977 fiz o download, mas não consegui fazer um campo como no seu exemplo tem o Texto21, mandei o bd no email se puder de uma olhada pra lá.

Enviado para seu email...

Roberto, favor de uma conferida no email, pois não recebi ainda.

recebeu???

Não chegou...

email.:
madson_cad@hotmail.com

enviei...

Opa, agora sim chegou, valeu demais vou estudar a forma que vc fez.

quanto ocultar a senha vc pode me sugerir alguma forma..

Quer ocultar senha onde??'

De uma olhada no formulário cadastrar usuário.
ele apresenta o nome do usuario e a senha do mesmo.

Roberto_1977, Boa tarde.

Funcionou, mas tenho uma pergunta, pra eu colocar nos outros relatórios, quero colocar nos demais, mas ai não funciona, alterei o numero da caixa de texto, 167, para a caixa usada no outro relatório, mesmo assim não deu certo.

Private Sub Report_Activate()
Me.Texto167.Value = Form_frmLogin.Texto18
End Sub

Boa tarde,

Não se esqueça que para poder ver nome do usuário, o form login tem que estar ativo(Invisivel ou não)
depois é só alterar o texto167 por nome do seu novo campo.

Me.[SeuNovoCampo].Value = Form_frmLogin.Texto18.

Teste e diga se deu?

Deu certo. valeu...

Sempre ao dispor....

Roberto_1977, desculpe...

mas só consegui fazer funcionar em um relatório, nos outros não aparecesse o nome de forma nenhuma....kkk