MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Nome de usuario em relatorios

    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Qui 2 Abr - 12:47

    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.
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Qui 2 Abr - 13:01

    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.


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Qui 2 Abr - 13:52

    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?
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Qui 2 Abr - 14:12

    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


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Qui 2 Abr - 14:38

    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.
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Qui 2 Abr - 14:43

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


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Qui 2 Abr - 14:50

    do BD
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Qui 2 Abr - 14:56

    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.


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Qui 2 Abr - 15:03

    Valeu, mas vc pode me explicar o código pra isso.
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Qui 2 Abr - 15:07

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

    Abraço....


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Qui 2 Abr - 15:19

    Veja exemplo rapido....

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

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Qui 2 Abr - 15:26

    =[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.
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Qui 2 Abr - 15:30

    Já fez download exemplo que postei?


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Ter 7 Abr - 10:56

    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á.
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Ter 7 Abr - 11:43

    Enviado para seu email...


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Ter 7 Abr - 12:52

    Roberto, favor de uma conferida no email, pois não recebi ainda.
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Ter 7 Abr - 15:02

    recebeu???


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Ter 7 Abr - 15:20

    Não chegou...

    email.:
    madson_cad@hotmail.com
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Ter 7 Abr - 15:26

    enviei... Embarassed


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Ter 7 Abr - 15:40

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

    quanto ocultar a senha vc pode me sugerir alguma forma..
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Ter 7 Abr - 15:44

    Quer ocultar senha onde??' Shocked


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Ter 7 Abr - 15:46

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Ter 7 Abr - 18:41

    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
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Ter 7 Abr - 19:01

    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?


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Ter 7 Abr - 19:12

    Deu certo. valeu...
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  Roberto_1977 Ter 7 Abr - 21:41

    Sempre ao dispor....


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    avatar
    madson_cad
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 30/12/2013

    [Resolvido]Nome de usuario em relatorios Empty Re: [Resolvido]Nome de usuario em relatorios

    Mensagem  madson_cad Qua 8 Abr - 0:00

    Roberto_1977, desculpe...

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

      Data/hora atual: Sab 17 Abr - 18:47