Ola pessoal tenho um sisteminha simples de cadastro de clientes e ordens de produção, o sistema ja esta pronto e funcionando, porém preciso que no relatório da ordem de produção aparece o nome do usuário, porém o sistema não é protegido por senha ou seja o usuario não se identifica pra acessar o sistema , qual a maneira mais simples para colocar o nome do usuário em cada relatório .....

Crie um campo no seu form e solicite ao Usuário que indique o seu nome e no relatório coloque o campo acima indicado.

Isso também pode ajudar:

Sub InserirNome
Dim strEntrada As String, strMsg As String
strMsg = "Digite o seu nome."
strEntrada = InputBox(Prompt:=strMsg, Title:="Informação do Usuário", XPos:=2000, YPos:=2000)
End Sub

quote:

Postado originalmente por Ewoks:
Isso também pode ajudar:

Sub InserirNome
Dim strEntrada As String, strMsg As String
strMsg = "Digite o seu nome."
strEntrada = InputBox(Prompt:=strMsg, Title:="Informação do Usuário", XPos:=2000, YPos:=2000)
End Sub

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

Grande Ewoks.
Como uso esse seu código. Onde coloco ou como faço referência a ele no form?
Obrigado.

Jeser
"Todas as coisas contribuem para o bem daqueles que amam a Deus"

Amigo,

É melhor vc implantar segurança a nivel de usuario, só assim poderá com segurança realmente pegar o nome do usuário que fez o lançamento de dados no aplicativo, pois cada usuario terá a sua senha, quem garante que determinado usuário fez o registro, ou seja alguém poderia lançar um registro e dizer que foi outro.

Voce pode fazer dessa maneira também Obter o login e o nome do computador

Crie, em seu formulário um botão e nomeio como 'Imprimir'.

Copie o código abaixo, no módulo do form.

'-----------------------------------------
Private Sub Imprimir_Click
Dim strEntrada As String, strMsg As String
strMsg = "Digite o seu nome."
strEntrada = InputBox(Prompt:=strMsg, Title:="Informação do Usuário", XPos:=2000, YPos:=2000)
End Sub
'-----------------------------------------

No relatório, crie um campo não-acoplado e na 'Origem do Controle' digite: =strEntrada